Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.205 Beiträge
Delphi 11 Alexandria
|
AW: Problem Auslesen von MySQL und Ausgabe in ListViews
25. Aug 2017, 07:50
Ja, in der 2ten Schleife fehlt das begin/end + das SQLQuery.Close muss aus der Schleife raus:
while not SQLQuery1.Eof do
begin
item:=mainFrm.ListView1.Items.Add;
item.Caption:= SQLQuery1.FieldByName('ID').AsString;
item.SubItems.Add(SQLQuery1.FieldByName('Produktna me').AsString);
...
SQLQuery1.Next;
end;
SQLQuery1.Close;
|