Durch Anklicken des Buttons,Datensätze im DBGrid anzeigen

[DeddyH]

Ich habe mal schnell eine kleine Beispielanwendung geschrieben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Nummern: TStringlist;
  SQL: string;
  i: integer;
begin
  (* Liste für die Auftragsnummern erzeugen *)
  Nummern := TStringlist.Create;
  try
    (* Artikelnummern '1' bis '10' hinzufügen *)
    for i := 1 to 10 do
      Nummern.Add(QuotedStr(IntToStr(i)));
    (* Trennzeichen auf Komma setzen *)
    Nummern.Delimiter := ',';
    (* SQL zusammenbauen *)
    SQL := Format('SELECT Artikel FROM Tabelle WHERE Artikelnummer IN (%s)',
      [Nummern.DelimitedText]);
    ShowMessage(SQL);
  finally
    (* Liste freigeben *)
    Nummern.Free;
  end;
end;

Die Liste müsste bei Dir natürlich global sein. Deine Variable f1 würde ihr dann jeweils hinzugefügt.