PlainText aus RTF auslesen

[Whookie]

Da RTF-Text ansi - codiert ist, benötigt es eine Umwandlung und man muss dem RichEdit auch noch klar machen das man es ernst meint mit Ansi:

Delphi-Quellcode:

function Rtf2Txt(const rtf: ansistring): string;
begin
  with TRichEdit.CreateParented(HWND(-3)) do
  begin
    SendMessage(Handle, WM_SETTEXT, 0, NativeInt(@rtf[1]));
    Result := Text;
    Free;
  end;
end;

dann geht das immer noch ohne stream.