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;

Werbung & Infos:

Aktuelles Bitdefender Angebot


Extra HP Gutschein für Dich als mein Leser

Spare jetzt 10% beim Kauf dieses Notebooks mit dem Gutschein HPMB10. Auch gültig für andere Produkte im HP Store und auch gültig für bereits rabattierte Angebote. Du kannst mit dem HP Gutschein also noch mal 10% extra sparen.



Verwandte Themen: