PlainText aus RTF auslesen

[marabu]

Ich bleibe bei meinem Vorschlag.

Delphi-Quellcode:

function RtfToPlain(rtf: String): String;
begin
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    SelectAll;
    SelText := rtf;
    Result := Text;
    Free;
  end;
end;

marabu