SQL Ergebnis in Stringliste - Fehlersuche

[fillibuster]

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 :gruebel:.

Viele Grüße ...

Hilfe ...

[DeddyH]

Wirkliche Fehler kann ich auch nicht entdecken. Hast Du einmal einen Breakpoint gesetzt und geschaut, was übergeben wird und was zurückkommt? Stimmt die Schreibweise überein? Evtl. gibt es ja keine Entsprechung in der DB zum ersten Listbox-Item.

[ibp]

Debugge doch mal die Prozedur. Ich gehe davon aus das die Ergebnismenge aus dem ersten Lisboxeintrag leer ist.

[DeddyH]

Meine Rede :zwinker:

[fillibuster]

OK,

der Fehler ist an einer anderen Stelle :oops:. Die Funktion ist korrekt.

Viele Grüße ....