Fórum Arquivo de texto...Uma boa ajuda...... #292421

Colega,

Utilizando o READLN, seria algo assim:

var tLinha:TextFile;
sTexto:String;
begin

AssignFile(tLinha,NomeDoSeuArquivoTexto);

Try
Reset(tLinha);
While not eoln(tLinha) do // le até o fim do texto
begin
ReadLn(tLinha,sTexto); // carrega sTexto com a linha
// aqui você coloca o seu codigo para verificar se tem CH
// se for cheque Memo1.Lines.Add(sTexto);
end;
Finally
CloseFile(tLinha);
end;


Espero ter ajudado.