Como escrever em um arquivo texto

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

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

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

    Registro em:
    Out 2011
    Posts:
    11,665
    Agradecimentos:
    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