Richedit + formatierter Text in DB speichern

[Akut-Programming]

Moin Uwe!

Also das hier ist der Code, den ich beim auslesen ausführe:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
   TmpStringList.Text:= dstGetReadme.Fields.Fields[1].AsString;
   TmpStringList.SaveToStream(TmpMemoryStream);
   TmpMemoryStream.Position:= 0;
   reReadme.PlainText:=true;
   reReadme.Lines.LoadFromStream(TmpMemoryStream);
finally
       TmpMemoryStream.Free;
       TmpStringList.Free;
end;

und das der Code beim speichern:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
   reReadme.Lines.SaveToStream(TmpMemoryStream);
   TmpMemoryStream.Position:= 0; 
   TmpStringList.LoadFromStream(TmpMemoryStream);
   reReadme.PlainText:=false;
   cmdSaveReadme.CommandText:='update readme_tbl set readme = '''+TmpStringList.Text+''' where projekt = '''+SelectetProject+'''';
   cmdSaveReadme.Execute;
finally
       TmpMemoryStream.Free;
       TmpStringList.Free;
       StatusBar1.SimpleText:='Readme: Eintrag für "'+SelectetProject+'" wurde gespeichert';
       Timer1.Enabled:=true;
end;

Gruß,
Sascha