PlainText aus RTF auslesen

[arnof]

Zitat von 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

Hallo, nachdem ich sowas gerade mal brauchte, musste ich festsetllen das das unter Berlin nicht geht! Hier meine gesteste Lösung:

Delphi-Quellcode:

function RTF2Text(rtf: String): String;
 var stream:TStringStream;
begin
  stream:=TStringStream.Create(rtf);
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    Lines.LoadFromStream(Stream);
    Result := Text;
    Free;
  end;
  stream.Free;
end;