Цитата:
Сообщение от NumLock
Переопределить метод AssignTo:
Код:
type
TClients = class(TPersistent)
protected
procedure AssignTo(Dest: TPersistent); override;
end;
procedure TClients.AssignTo(Dest: TPersistent);
begin
TStrings(Dest).Clear;
TStrings(Dest).Add('1');
TStrings(Dest).Add('2');
TStrings(Dest).Add('4');
TStrings(Dest).Add('8');
end;
Использовать метод Assign:
Код:
begin
ComboBox1.Items.Assign(TClients.Create);
end;
Работает 100%.
|
Спасибо огромное, работает.
Подскажите еще один момент . У меня в выборке возвращаеться два поля ID, NAMECLIENT. как мне таким шахером махером два значение добавить в комбо.
Аналогично етому
ComboBox1.Items.AddObject(ADOQuery1.FieldByName('F ield_with_name').AsString,TObject(ADOQuery1.FieldB yName('ID').AsInteger));