Código Delphi
[-]procedure RtfToTxt(Strings: TStrings);
begin
with TRichEdit.Create(nil) do
begin
Visible := False;
Parent := Application.MainForm;
Text := Strings.Text;
PlainText := True;
Strings.Assign(Lines);
Destroy;
end;
end;
Modo de uso:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('c:\leecher.rtf');
RtfToTxt(ListBox1.Items);
end;
Saludos