Sie haben eine Stringliste und Sie haben ein Datenbankfeld vom Typ Memo. Nun möchten Sie die Stringliste in das Memofeld kopieren und wieder auslesen.
Um das Memofeld zu füllen:
var
meinStream:TStream;
meineListe:TStrings;
begin
…
meineListe:=TStringlist.create;
meineListe.add(‚Text1‘)
meineListe.add(‚Text2‘)
….
try
meinStream := query.CreateBlobStream(FieldByName(‚meinMemoFeld‘), bmWrite);
meineliste.SaveToStream(meinStream);
finally
meinStream.Free;
end;
meineListe.free;
Query ist dabei Ihre Datenbankquery oder ev. Tabellenkomponente. Das ganze natürlich eingebunden in einem Code zum Editieren/Einfügen eines Datensatzes.
Und um die Daten wieder auszulesen und dabei wieder einer Stringliste zuzuweisen:
meinStream := query.CreateBlobStream(query.FieldByName(‚meinMemofeld‘), bmRead);
try
meineListe.LoadFromStream(meinStream);
finally
meinStream.Free;
end;
