Dicas - Criando um arquivo texto

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (6)  (0)

Veja nesta dica, como criar um arquivo texto.

Criar um arquivo texto

 

Esta é uma das mais pedidas no nosso e-mail de suporte. Veja abaixo os passos básicos para criação de arquivos texto:

 

var

  F: TextFile;

begin

  AssignFile(f,'c:\arquivo_qualquer.txt');

  Rewrite(f); //abre o arquivo para escrita

  Writeln(f,'Testando'); escreve no arquivo e desce uma linha

  Write(f,'Clube Delphi'); //escreve no arquivo sem descer a linha

  Closefile(f); //fecha o handle de arquivo

end;

 

///Rotina para ler de um arquivo texto:

var

  f: TextFile;

  linha: string;

begin

  AssignFile(f,'c:\arquivo_qualquer.txt');

  Reset(f); //abre o arquivo para leitura;

  while not eof(f) do

  begin

    Readln(f,linha); //le do arquivo e desce uma linha. O conteúdo lido é transferido para a variável linha

    Memo1.lines.add(linha);

  end;

  Closefile(f);

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?