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