Recorrer un archivo .rtf
 

Hola amigos, necesito vuestra ayuda. Soy novato en esto del delphi. Necesito abrir y recorrer un archivo de texto .rtf, como lo hago? El archivo consta de muchas lineas donde cada una es una frase si espacios. Necesito coger determinadas palabras dentro de esas frases sin espacios...como lo hago?
Gracias por vuestra ayuda!!

Una posible implementación sería algo como:

procedure TForm1.Button1Click(Sender: TObject);
var
rtfEdit: TRichEdit;
strLine: String;
nLoop : Integer;
begin
rtfEdit := TRichEdit.Create(Nil);
rtfEdit.Parent := Self;

try
rtfEdit.Lines.LoadFromFile('c:\MyRTF_File.rtf');
nLoop := 0;
While nLoop < rtfEdit.Lines.Count do
begin
strLine := rtfEdit.Lines[nLoop];

//... Haz algo con la linea actual disponible en "strLine".
//...
Inc( nLoop );
end;
finally
rtfEdit.Free;
end;
end;

Ooops!! siento la ausencia de indentación, espero que se entienda.

Marco R.