Formatierten Text in DB speichern

[Fellmer Lloyd]

Morgen!

Ich will den Inhalt eines Richedit mit formatierung in eine Datenbank speichern.
Ich habe bereits eine Lese/Speicherprozedur geschrieben, bin mir jedoch nicht sicher ob das die optimale Lösung ist.

Über Kritik würde ich mich freuen

Zur Datenbank
--------------
DB-Typ: Access.
Feldtyp: Memo.

Speicherprozedur:

Delphi-Quellcode:

TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
  RichEditData.Lines.SaveToStream(TmpMemoryStream); //Speichert den Text mit formatierung in ein Stream
  TmpMemoryStream.Position:= 0; //Position auf 0 setzen
  TmpStringList.LoadFromStream(TmpMemoryStream); //Text Mit Formatierung aus dem Stream lesen
TableData.FieldByName('RichText').AsString:= TmpStringList.Text;
finally
  TmpMemoryStream.Free;
  TmpStringList.Free;
end;

Leseprozedur:

Delphi-Quellcode:

    
TmpMemoryStream:= TMemoryStream.Create;
TmpStringList:= TStringList.Create;
try
  TmpStringList.Text:= TableData.FieldByName('RichText').AsString;
  TmpStringList.SaveToStream(TmpMemoryStream); //Speichert den Text mit formatierung in ein Stream
  TmpMemoryStream.Position:= 0; //Position auf 0 setzen
  RichEditData.Lines.LoadFromStream(TmpMemoryStream);//Text Mit Formatierung aus dem Stream lesen
finally
  TmpMemoryStream.Free;
  TmpStringList.Free;
end;

Gruss Fellmer