RichText zu Plain-Text umwandeln

[phXql]

okay, habs jetz mal so gemacht, bis ich evtl was besseres finde. is die methode mit laden und dann wieder speichern:

Delphi-Quellcode:

var t_richedit: TRichEdit;
    t_stream: TStringStream;
begin
    t_richedit := TRichEdit.Create(FormMain);
    t_stream := TStringStream.Create('');
    try
      t_richedit.ParentWindow := FormMain.Handle;
      t_richedit.PlainText := False;
      t_richedit.Text := pRTFString;
      t_richedit.PlainText := True;
      t_richedit.Lines.SaveToStream(t_stream);
      Result := t_stream.DataString;
    finally
      FreeAndNil(t_richedit);
      FreeAndNil(t_stream);
    end;