RTF to plain text (without formats)

[Poelser]

Diese Funktion mal probieren:

Delphi-Quellcode:

function RTF2PlainText(s: Integer): string;
var 
  RichEdit: TRichEdit;
begin
  RichEdit := TRichEdit.CreateParented(HWND(-3));
  try
    with RichEdit do
    begin
      SelectAll;
      SelText := s;
      Result := Text;
    end;
  finally
    RichEdit.Free;
  end;
end;