in RichEdit Formatierung entfernen

[NicoDE]

Zitat von Stephan:

Wobei mir die Lösung persönlich nicht so gut gefällt da ich ja jetzt ein RichEdit "unnötig" irgendwo auf dem Form versteck

Versuch's mit:

Delphi-Quellcode:

function TForm1.RTFtoText(const RTF: string): string;
var
  Stream: TStringStream;
begin
  Result := EmptyStr;
  Stream := TStringStream.Create(RTF);
  try
    with TRichEdit.Create(Self) do
    try
      Parent := Self;
      Lines.LoadFromStream(Stream);
      Result := Lines.Text;
    finally
      Free;
    end;
  finally
    Stream.Free;
  end;
end;

(ungetestet, habe kein Delphi zur Hand)