Eine Stringliste in ein Memofeld (DB) kopieren/lesen

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;