Como escrever em um arquivo texto

Discussão em 'Visual Basic' iniciado por iMelo~', 9 Jun, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. iMelo~'

    iMelo~' I'm reaching out for you! Banido

    Registro:
    4 Out, 2011
    Posts:
    11,682
    Curtidas:
    0
      0/0
    Não há como fugir. Cedo ou tarde precisaremos escrever em um arquivo texto usando Delphi. E esta dica foi escrita com o propósito de facilitar esta tarefa.

    O primeiro passo para se escrever em um arquivo texto usando Delphi é declarar uma variável do tipo TextFile. Em seguida usamos a procedure AssignFile() para associar a variável TextFile ao arquivo em disco.

    Como queremos escrever conteúdo novo no arquivo, a função Rewrite() pode ser usada. Esta função cria o arquivo em disco se este ainda não existir. Se o mesmo existir, ele é excluído e a função cria outro com o mesmo nome. E, para escrever conteúdo no arquivo texto, usamos as funções Write() e WriteLn(). A primeira escreve no arquivo enquanto a segunda escreve no arquivo e adiciona o marcador de quebra de linha.

    Veja o exemplo para um melhor entendimento:

    PHP:
    procedure TForm1.Button1Click(SenderTObject);
    var
      
    arquivoTextFile;
    begin
      
    // vamos fazer uma ligação entre a variável arquivo e o
      // arquivo que queremos manipular
      
    AssignFile(arquivo'C:\arquivo de codigos\dados.txt');

      
    // vamos abrir o arquivo ou criar um novo
      
    Rewrite(arquivo);

      
    // vamos escrever no arquivo agora
      
    WriteLn(arquivo'Sou a primeira linha.');
      
    Write(arquivo'Sou a segunda linha.');
      
    WriteLn(arquivo' E lá vem...');
      
    WriteLn(arquivo'A terceira linha');

      
    // hora de fechar o arquivo
      
    CloseFile(arquivo);

      
    // fim
      
    ShowMessage('Operação realizada com sucesso.');
    end;

    Créditos: arquivodecodigo​
     
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página

Share
Stylium Setting
Choose Your Layout Style
Choose Title Font
Choose Your Color Skin
Patterns for Boxed Version
Images for Boxed Version