TextFile

Código de exemplo para manipulação de arquivo com textoFile

var
MeuArquivo : textoFile;
texto : string;

begin
// abrir o arquivo
AssignFile(MeuArquivo, 'Test.txt');

// Limpar o arquivo
ReWrite(MeuArquivo);

// Adiciona a string no arquivo
WriteLn(MeuArquivo, 'Olá mundo!!!');

// Fechar o Arquivo
CloseFile(MeuArquivo);

// Carregar o arquivo
Reset(MeuArquivo);

// Loop para percorrer o arquivo
while not Eof(MeuArquivo) do
begin
ReadLn(MeuArquivo, texto);
ShowMessage(texto);
end;

// Fechar o Arquivo
CloseFile(MeuArquivo);
end;