Richedit + formatierter Text in DB speichern

[Akut-Programming]

Moin Uwe!

Also das ganze ambesten so?

Delphi-Quellcode:

reReadme.PlainText:=true; 
reReadme.Lines.LoadFromStream(TmpMemoryStream);
reReadme.PlainText:=false;

:gruebel:

Gruß,
Sascha

[UweR]

Ich würde Plaintext zur Entwurfszeit auf FALSE setzen und dann nicht mehr anfassen!

[Akut-Programming]

Tach Uwe!

Leider klappts so auch nicht. Mich würde mal interessieren, was da falsch läuft. :gruebel:

Gruß,
Sascha

[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;