elo
mam ComboBox który wyciaga dane z bazy MySQL, wszystko działa i jest git...
... ale teraz chcę aby to samo robiły inne ComboBox'y (mam ich kilka) i chce stworzyć funkcję aby to obsługiwała niestety bezskutecznie :(
kod dla jednego Combo
procedure TMainForm.cmbOpis1DropDown(Sender: TObject);
var
i : integer;
begin
cmbFirmy1.Items.Clear;
SQL.CommandText:='SELECT * FROM ogloszenia';
SQL.Open;
for i :=1 to SQL.RecordCount do
begin
cmbOpis1.Items.Add(SQL.FieldValues['opis']);
SQL.Next;
end;
SQL.Close;
end;
z góry dzięki za pomoc
pozdrawiam
piotr