Richedit + formatierter Text in DB speichern

[der-C]

ich hab da mal nen bissel Code

Delphi-Quellcode:

procedure SetRTFText(RichRTFText: string);
var 

 FStream : TMemoryStream;

begin


  FStream := TMemoryStream.Create;
  FStream.Clear;
  FStream.WriteBuffer(RichRTFText[1], Length(RichRTFText));
  FStream.Position := 0;
  DeinRichedit1.Lines.LoadFromStream(FStream);
  FStream.Free;


end;


function GetRTFText: string;
var 

 FStream : TMemoryStream;

begin


  FStream := TMemoryStream.Create;
  FStream.Clear;
  DeinRichedit1.Lines.SaveToStream(FStream);
  Result := PChar(FStream.Memory);
  FStream.Free;

end;