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;
