Button Click

[MAZADA]

Так Фреймы добавляется, но как сделать чтоб все добавление Фреймы считались.
У фрейму есть Edit1.
Через кнопку добавляем два фрейма, нужно чтоб едиты с двох форм считались! (Edit1+Edit2) как сделать?

[Stilet]

В цикле пройтись по всем контролам, и если он Фрейм то получить значение с него

for i:=0 to ControlCount-1 do 
  if Control[i] is TFrame21 then
   s:=s+IntToStr(TFrame21(Control[i]).Edit1.Text);

Где s - integer.
Типа такого в общем проход по компонентам.

[MAZADA]

Если честно я не понял что к чему.
for i:=0 to ControlCount-1 do
if Control[i] is TFrame21 then
s:=s+IntToStr(TFrame21(Control[i]).Edit1.Text);
Что с этим делать?
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[MAZADA]

вот у меня считает так.
Form1.Edit1.Text:=K[Form1.Combobox1.ItemIndex+1,Form1.C ombobox2.ItemIndex+1];
Form1.Edit3.Text:=K[Form1.Combobox3.ItemIndex+1,Form1.C ombobox4.ItemIndex+1];
Form1.Edit9.Text:=K[Form1.Combobox5.ItemIndex+1,Form1.C ombobox6.ItemIndex+1];
Form1.Edit16.Text:=K[Form1.Combobox7.ItemIndex+1,Form1.C ombobox8.ItemIndex+1];
Form1.Edit21.Text:=K[Form1.Combobox9.ItemIndex+1,Form1.C ombobox10.ItemIndex+1];
Form1.Edit26.Text:=K[Form1.Combobox11.ItemIndex+1,Form1. Combobox12.ItemIndex+1];
Form1.Edit31.Text:=K[Form1.Combobox13.ItemIndex+1,Form1. Combobox14.ItemIndex+1];
Form1.Edit41.Text:=K[Form1.Combobox17.ItemIndex+1,Form1. Combobox18.ItemIndex+1];
Form1.Frame21.Edit1.Text:=K[Form1.ComboBox1.ItemIndex+1,Form1.C omboBox2.ItemIndex+1];
Res:=StrToFloatDef(Form1.Edit1.Text , 0)
+ StrToFloatDef(Form1.Edit3.Text, 0)
+ StrToFloatDef(Form1.Edit9.Text, 0)
+ StrToFloatDef(Form1.Edit16.Text, 0)
+ StrToFloatDef(Form1.Edit21.Text, 0)
+ StrToFloatDef(Form1.Edit26.Text, 0)
+ StrToFloatDef(Form1.Edit31.Text, 0)
+ StrToFloatDef(Form1.Edit41.Text, 0)
+ StrToFloatDef(Form1.Frame21.Edit1.T ext, 0);
Edit1.Text:=floattostr(Res);
Как сделать с этого цыкл и чтоб считало и с фрейму?
У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[evg_m]

Как сделать с этого цыкл и чтоб считало и с фрейму?

for i:=0 to ControlCount-1 do //проходим циклом по всему что есть на форме 
if Control[i] is TFrame21 then //проверяем то это наш фрейи
s:=s+IntToStr(TFrame21(Control[i]).Edit1.Text);просчитывем данные (Edit1.text) с фрейиа

возможно так будет понятнее (все как в предыдущем ) с добавлением

for i:=0 to ControlCount-1 do 
if Control[i] is TFrame21 then 
begin
  curframe:=TFrame21(Control[i]); //фиксация текущего фрейма
  s:=s+strtoint(curframe.Edit1.Text); //и его обработка
end;