Salvar arquivo em TXT

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;

http://www.joaomorais.com.br/pascal/download.php?cat=101

dbfile, é meio tosco aviso

Olá

O jeito que o Reginaldo mostrou eh mais fácil, então esse outro jeito eh mais pra referência (futuras pesquisas, também)

Pode-se colocar os campos numa variável TStrings e fazer


Espero que ajude
Até+