wenn ich es so schreibe, gibt es keinen Fehler
Delphi-Quellcode:
DM.IBSQLimKonti.close;
DM.IBSQLimKonti.Params[0].AsInteger := 1;
DM.IBSQLimKonti.Params[1].AsString := Edit1.Text;
DM.IBSQLimKonti.Params[2].AsString := Edit2.Text;
DM.IBSQLimKonti.Prepare;
DM.IBSQLimKonti.ExecQuery;
ListBox6.Items.clear;
while not DM.IBSQLimKonti.Eof do begin
TListbox(FindComponent('Listbox' + IntToStr(y))).Items.Add (DM.IBSQLimKonti.FieldbyName('ID').asString);
DM.IBSQLimKonti.next;
end;