Вот так заполняю. Всего 809 записей. А что ты ещё предлагаешь? Пользователю требуется дать возможно мультивыбора.
Код:
procedure TfmApartSearch.FeelInfosource();
Var
CheckComboboxItem: TcxCheckComboboxItem;
begin
with dm do
with fibdsInfoSource do begin
Open;
First;
FetchAll;
clbInfosource.Items.BeginUpdate;
clbExclusive.Items.BeginUpdate;
checkboxCHANGE.Properties.Items.BeginUpdate;
clbInfosource.Clear;
clbExclusive.Clear;
checkboxCHANGE.Properties.Items.Clear;
While not Eof do begin
clbInfosource.AddItem(FieldByName('NAME').AsString, Pointer(FieldByName('ID').AsInteger));
clbExclusive.AddItem( FieldByName('NAME').AsString, Pointer(FieldByName('ID').AsInteger));
CheckComboboxItem := checkboxCHANGE.Properties.Items.AddCheckItem(FieldByName('NAME').AsString);
CheckComboboxItem.Tag := FieldByName('ID').AsInteger;
Next;
end;
close;
clbInfosource.Items.EndUpdate;
clbExclusive.Items.EndUpdate;
checkboxCHANGE.Properties.Items.EndUpdate;
end;
end;
Код:
procedure TfmApartSearch.FeelInfosource();
Var
CheckComboboxItem: TcxCheckComboboxItem;
begin
with dm do
with fibdsInfoSource do begin
Open;
First;
FetchAll;
clbInfosource.Items.BeginUpdate;
clbExclusive.Items.BeginUpdate;
checkboxCHANGE.Properties.Items.BeginUpdate;
clbInfosource.Clear;
clbExclusive.Clear;
checkboxCHANGE.Properties.Items.Clear;
While not Eof do begin
clbInfosource.AddItem(FieldByName('NAME').AsString, Pointer(FieldByName('ID').AsInteger));
clbExclusive.AddItem( FieldByName('NAME').AsString, Pointer(FieldByName('ID').AsInteger));
CheckComboboxItem := checkboxCHANGE.Properties.Items.AddCheckItem(FieldByName('NAME').AsString);
CheckComboboxItem.Tag := FieldByName('ID').AsInteger;
Next;
end;
close;
clbInfosource.Items.EndUpdate;
clbExclusive.Items.EndUpdate;
checkboxCHANGE.Properties.Items.EndUpdate;
end;
end;