[delpi12]

помогите мне , в написание кода у меня на форме при нажатие на кнопку создаются новые Edit ы , как их всех умножит с друг другом
смотрите как ниже в картинке

[Кодер]

Код:

1	for j:=0 to form1.componentscount do

[delpi12]

Сообщение от Кодер

Код:

не получается брат

[delpi12]

у меня код такой при нажимание создается новые edit ы

Код:

1 2 3 4 5 6 7 8 9

begin   i:=i+1;   Ed:= TEdit.Create(Self);   Ed.Parent:= Form1;   Ed.Top:=20*i;   ed.text:='5,0';//+IntToStr(i);   Ed.Name:='Edit'+IntToStr(i); end; как умножит с друг другом и вывести в label1

Админ: Не забываем про использование тегов!

[Alegun]

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var i, b: integer; begin b:= 0; with Form1 do for i:= 0 to ComponentCount-1 do if Components[i] is TEdit then Inc(b, StrToInt((Components[i] as TEdit).Text));   Label1.Caption:= IntToStr(b); end;

[delpi12]

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

Код:

а как умножит их ?

[Alegun]

Код:

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

procedure TForm1.Button1Click(Sender: TObject); var  i: integer;  b: real; begin  b:= 1; with Form1 do  for i:= 0 to ComponentCount-1 do begin  if Components[i] is TEdit then b:= b * StrToFloat((Components[i] as TEdit).Text); end;  Label1.Caption:= FloatToStr(b); end;