Fill DBCombobox

nabil-bago Posted messages 289 Status Member -  
 Maxo -
```delphi
procedure TForm5.FormShow(Sender: TObject);
var
i, a: integer;
begin
a := 2018;
for i := 0 to 99 do
begin
dbcombobox2.items.Add(IntToStr(a + i)); // Remplacez **** par .Add
end;
DBComboBox2.ItemIndex := 0;
end;
```

1 answer

Maxo
 
Is it still relevant?
0