Delphi-Quellcode:
procedure TfrmTestauswahl.cbotestnummerChange(Sender: TObject);
begin
ComboBox.Items.Clear
myQuery.SQL.Text:='SELECT Testnummer WHERE Testabschnitt = 3 ORDER BY Testnummer';
myQuery.Open;
myQuery.First;
while not (myQuery.Eof) do
Combobox.Items.Add(myQuery.Fields[0].AsString);
end;
delphi tags sind: [_delphi_] und [_/delphi_] ohne die "_" oder drück einfach beim editieren den button "delphi-code"