Buscar por:

Criar um arquivo texto

Código

Criar um arquivo texto

Esta é uma das mais pedidas no nosso email 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;