RtfToTxt (Truco 484)

[[cHackAll]]

Empezado por rauros

A perdón, pensé que con el nombre sobrarían datos :S...

Bueno en realidad me daba un poco de flojera leer el titulo y tuve la osadía de pensar que podrías darme algún dato adicional... (perdone usted)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit1.Lines.LoadFromFile('c:\documento.rtf');
 RichEdit1.PlainText := True;
 RichEdit1.Lines.SaveToFile('c:\texto.txt');
 RichEdit1.PlainText := False;
end;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
 RichEdit1.PlainText := True;
 ListBox1.Items.Assign(RichEdit1.Lines);
 RichEdit1.PlainText := False;
end;

Te doy la "ayuda" solicitada, pero como ya entendimos que no hay nada implícito te pido que me digas si no es mucha molestia (pues esto de los trucos es muy complicado para mi), si debo probarlo y hacer la función también.

Adios