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

[sislexa]

Хм да точно . чёт по запрке так сделал

всё я поменял.теперь он ругается на наличие Русских букв

procedure Tfrm2.btn1Click(Sender: TObject);
begin
  if count1<=30 then begin
  LookupComboboxs[count1]:=TDBLookupCombobox.Create(frm2);
  LookupComboboxs[count1].Top:=btn1.Top;
  LookupComboboxs[count1].Left:=10;
  LookupComboboxs[count1].width:=104;
  LookupComboboxs[count1].height:=21;
  LookupComboboxs[count1].Parent:=frm2;
  LookupComboboxs[count1].ListSource:=ds4;
  LookupComboboxs[count1].DataField:=Товар;
  LookupComboboxs[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;
  DbEdits[i].DataSource:=ds3;
end;

вот получившийся код

а вот место на которое он ругается

LookupComboboxs[count1].DataField:=Товар;

хотя это поле в БД есть

Всем вам огромное спасибо у меня всё с этим получилось!

Следующая моя проблема это как работать в формулах с получеными компонентами .

procedure Tfrm2.edt5Change(Sender: TObject);
begin

edt5.Text:=FloatToStr(StrToFloat(dbedt1.Text)+StrToFloat(dbedt2.Text)
+StrToFloat(TDbEdit.Text));
end;

ругается вот так
[Error] Unit2.pas(107): Method identifier expected

TDbEdit - это полученный компонент

From Stilet: Уважай форум. Пости код спецтегом по кнопке #, а не по кнопке цитаты.

[Stilet]

TDbEdit.Text

Так нельзя, это имя класса. Класс не может участвовать в выражениях так просто без статических методов.
Откуда ты его выдрал?

[mihali4]

edt5.Text:=FloatToStr(StrToFloat(db edt1.Text)+StrToFloat(dbedt2.Text)+ StrToFloat(TDbEdit.Text));

Что за каша из топора ?
Строку FloatToStr(StrToFloat(dbedt1.Text) складываем с двумя числами:
+StrToFloat(dbedt2.Text)+StrToFloat (TDbEdit.Text)) !!!
И полученную ахинею пытаемся присвоить строке edt5.Text !

[sislexa]

А как правильно написать мне нужно сложить два имеющихся на форме компонента DBEdit с создаваемыми DBEditами?

[mihali4]

Я не знаю, что вам точно нужно получить...
Но, например, так можно:

edt5.Text:=FloatToStr(StrToFloat(dbedt1.Text))+FloatToStr(StrToFloat(dbedt2.Text))+ FloatToStr(StrToFloat(TDbEdit.Text));

Это для того случая, когда у вас все дбэдиты содержат числа.

[sislexa]

попробовал вот так

procedure Tfrm2.edt5Change(Sender: TObject);
begin

edt5.Text:=FloatToStr(StrToFloat(dbedt1.Text)+StrToFloat(dbedt2.Text)
+StrToFloat(DbEdits[i].Text));
end;

вылазиет вот это окно

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

Я не знаю, что вам точно нужно получить...
Но, например, так можно:

edt5.Text:=FloatToStr(StrToFloat(dbedt1.Text))+FloatToStr(StrToFloat(dbedt2.Text))+ FloatToStr(StrToFloat(TDbEdit.Text));

Это для того случая, когда у вас все дбэдиты содержат числа.

он опять ругается вот так [Error] Unit2.pas(106): Method identifier expected

[mihali4]

А что это за TDbEdit.Text ???
Т убрать надо...

[sislexa]

я убрал теперь она так ругается
[Error] Unit2.pas(105): Undeclared identifier: 'DbEdit'

[mihali4]

Значит нет у вас такого компонента на форме...
Почитали бы литературу какую-нибудь - отнюдь не вредно...
Ее полно на нашем сайте
http://www.programmersclub.ru/

[sislexa]

я читаю литературу связанную с Delphi . просто не нахожу ответы на внекоторые вопросы.

кстати DbEdits есть как переменная но в формуле её всё равно не считают

раздел описания переменных

var
frm2: Tfrm2;
LookupComboBoxs:array[1..30] of TDBLookupComboBox;
Edits:array[1..30] of TEdit;
DbEdits:array[1..30] of TDBEdit;
Count1,Count2,i:integer;

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

И кроме того:

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор