Morgen, bin gestern eingepennt
Also, ich mach ein
Query auf die
DB, fülle die Klasse Liste und pack es in das VST.
Delphi-Quellcode:
Query.SQL.Text := '
Query String'
Query.Open;
while not Query.eof
do
Begin
Liste := TListe.Create;
with Liste
do
Begin
liste.test1:=
Query.FieldByName('
test1').AsWideString;
.
.
.
end;
Vst.addchild(
nil, Liste);
Query.Next;
End;