Работа с динамически создаваемыми компонентами

[sislexa]

В программе имеется кнопка добавления компонентов которая создаёт 1 компонента LookupCombobox и 2компонента DBEdit.
1)как связать эти компоненты с базой данных чтоб они отображали данные из неё?
2)как записать эти компоненты в формулу компонента Edit который считает сумму чисел записанных в создаваемые DBEditы
Заранее благодарен за ответы!

[Stilet]

Ну предположим создал ты LookupCombobox в переменку LCB
Тогда не забудь

LCB.DataSource:=тот Датасорц, который привязан к компоненту БД
LCB.DataField:=Поле к которому вязаться
LCB.ListSource:=тот датасорц откуда будет браться список по ключевому полю
LCB.ListField:=поле по которому будет связка и выборка данных в список

То же самое для DBEdit - описать Datasouce и dataField

[sislexa]

а как LookupCombobox создать в переменку LCB.?

[mihali4]

LCB - это имя созданного LookupCombobox...
А переменка - это перемена между уроками...
Может, стоит все же литературу почитать, а ?

[sislexa]

Сори немного не въехал. Всё сделал как вы сказали в итоге получилось так:

Comboboxs[count1].DataField:=Книги;
Comboboxs[count1].ListSource:=ds4;

он ругается вот такими ошибками
[Error] Unit2.pas(131): Undeclared identifier: 'DataField'
[Error] Unit2.pas(131): Illegal character in input file: 'Т' ($D2)
[Error] Unit2.pas(132): Undeclared identifier: 'ListSource'

[Stilet]

Всё сделал как вы сказали

полностью код создания в студию.

[XeruH]

LCB := TLookupComboBox.Create(Self);
LCB.DataSource:=тот Датасорц, который привязан к компоненту БД
LCB.DataField:=Поле к которому вязаться
LCB.ListSource:=тот датасорц откуда будет браться список по ключевому полю
LCB.ListField:=поле по которому будет связка и выборка данных в список

[sislexa]

вот код кнопки которая создаёт эти компоненты

procedure Tfrm2.btn1Click(Sender: TObject);
begin
  if count1<=30 then begin
  Comboboxs[count1]:=TCombobox.Create(frm2);
  Comboboxs[count1].Top:=btn1.Top;
  Comboboxs[count1].Left:=10;
  Comboboxs[count1].width:=104;
  Comboboxs[count1].height:=21;
  Comboboxs[count1].Parent:=frm2;
  Comboboxs[count1].Show;
  inc(count1);
  DbEdits[count2]:=TDbEdit.Create(frm2);
  DbEdits[count2].Top:=btn1.Top;
  DbEdits[count2].Left:=144;
  DbEdits[count2].width:=70;
  DbEdits[count2].height:=21;
  DbEdits[count2].Parent:=frm2;
  DbEdits[count2].Show;
  DbEdits[count2+1]:=TDbEdit.Create(frm2);
  DbEdits[count2+1].Top:=btn1.Top;
  DbEdits[count2+1].Left:=251;
  DbEdits[count2+1].width:=77;
  DbEdits[count2+1].height:=21;
  DbEdits[count2+1].Parent:=frm2;
  DbEdits[count2+1].Show;
  inc(count2,2);
  btn1.Top:=btn1.Top+24;
  spnl1.Top:=spnl1.Top+24;
  Comboboxs[count1].DataField:=Цена;
  Comboboxs[count1].ListSource:=ds4;
  end;
end;

[sislexa]

пробовал вот так сё равно та-же ерунда

procedure Tfrm2.btn1Click(Sender: TObject);
begin
  if count1<=30 then begin
  Comboboxs[count1]:=TCombobox.Create(frm2);
  Comboboxs[count1].Top:=btn1.Top;
  Comboboxs[count1].Left:=10;
  Comboboxs[count1].width:=104;
  Comboboxs[count1].height:=21;
  Comboboxs[count1].Parent:=frm2;
  Comboboxs[count1].DataField:=Цена;
  Comboboxs[count1].ListSource:=ds4;
  Comboboxs[count1].Show;
  inc(count1);
  DbEdits[count2]:=TDbEdit.Create(frm2);
  DbEdits[count2].Top:=btn1.Top;
  DbEdits[count2].Left:=144;
  DbEdits[count2].width:=70;
  DbEdits[count2].height:=21;
  DbEdits[count2].Parent:=frm2;
  DbEdits[count2].Show;
  DbEdits[count2+1]:=TDbEdit.Create(frm2);
  DbEdits[count2+1].Top:=btn1.Top;
  DbEdits[count2+1].Left:=251;
  DbEdits[count2+1].width:=77;
  DbEdits[count2+1].height:=21;
  DbEdits[count2+1].Parent:=frm2;
  DbEdits[count2+1].Show;
  inc(count2,2);
  btn1.Top:=btn1.Top+24;
  spnl1.Top:=spnl1.Top+24;
  end;
end;

[Stilet]

Comboboxs[count1]:=TCombobox.Create(frm2);

Тебе нужен LookupCombobox а ты запращиваешь TCombobox...
Тебя это не смущает?