Hallo,
ich habe hier eine fehlerhafte Prozedur, aber ich finde den Fehler nicht:
Delphi-Quellcode:
procedure TForm2.Button3Click(Sender: TObject);
var
i: integer;
sl: TStringlist;
begin
sl:=TStringlist.create;
if query.Active
then query.Active := false;
for i := 0
to Listbox1.items.count - 1
do
begin
query.SQL.Text := '
SELECT article_id FROM translations where name=:name';
query.ParamByName('
name').AsString := listbox1.items[i];
query.Open;
while not query.eof
do
begin
Sl.Add(
query.FieldByName('
article_id').AsString);
query.next;
end;
query.Close;
ShowMessage(intToStr(sl.count));
//Einmal 874 und einmal 946
end;
ShowMessage(intToStr(sl.count));
//946
sl.Free;
end;
In der Listbox sind 2 Einträge, allerdings werden die Ergebnisse nicht alle in die Stringliste geschrieben, nur die von dem letzten Listboxeintrag? Wo wird diese zurückgesetzt
.
Viele Grüße ...
Hilfe ...