[sashau01]

Сообщение от 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));