[sashau01]

Господа, подскажите.
Подскажите как делать правильно (best practice).
Есть клас Clients, в классе есть к примеру метод getclients который sqlем из базы возвращает список клиентов. Далее мне необходимо результат выгрузки загрузить в combobox, каким способом из метода забрать результаты выборки?

Код:

1 2 3 4 5

for  что здесь запихнуть  do   begin      ComboBox1.Items.Add();      Next;   end;

[lmikle]

Пусть для работы с БД мы используем ADO:

Код:

1 2 3 4 5 6

ADOQuery1.First; While Not ADOQuery1.Eof Do   begin      ComboBox1.Items.Add(ADOQuery1.FieldByName('Field_with_name').AsString);      ADOQuery1.Next;   end;

Если надо сохранить при этом ID, то можно пользоваться примерное так:

Код:

1 2 3

...      ComboBox1.Items.AddObject(ADOQuery1.FieldByName('Field_with_name').AsString,TObject(ADOQuery1.FieldByName('ID').AsInteger)); ...

[NumLock]

Переопределить метод AssignTo:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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:

Код:

1 2 3

begin   ComboBox1.Items.Assign(TClients.Create); end;

Работает 100%.

[sashau01]

Сообщение от NumLock

Переопределить метод AssignTo:

Код:

Использовать метод Assign:

Код:

Работает 100%.

Спасибо огромное, работает.
Подскажите еще один момент . У меня в выборке возвращаеться два поля ID, NAMECLIENT. как мне таким шахером махером два значение добавить в комбо.
Аналогично етому
ComboBox1.Items.AddObject(ADOQuery1.FieldByName('F ield_with_name').AsString,TObject(ADOQuery1.FieldB yName('ID').AsInteger));

[lmikle]

Ну так и добавлять (плюс еще одна поправочка на всякий случай):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

type   TClients = class(TPersistent)   protected     procedure AssignTo(Dest: TPersistent); override;   end;    procedure TClients.AssignTo(Dest: TPersistent); begin   if Dest Is TStrings Then   begin     TStrings(Dest).Clear;     TStrings(Dest).AddObject('1',TObject(1));     TStrings(Dest).AddObject('2',TObject(2));     TStrings(Dest).AddObject('4',TObject(4));     TStrings(Dest).AddObject('8',TObject(8));   end; end;

[NumLock]

Ну уж на то пошло тогда с возбуждением исключения делать, а не в тихую ничего не делая

Код:

1 2 3 4 5 6 7 8 9

procedure TClients.AssignTo(Dest: TPersistent); begin   if not (Dest is TStrings) then raise Exception.Create('!TStrings');   TStrings(Dest).Clear;   TStrings(Dest).Add('1');   TStrings(Dest).Add('2');   TStrings(Dest).Add('4');   TStrings(Dest).Add('8'); end;