[delpi12]

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

[Кодер]

Код:

for j:=0 to form1.componentscount do 

[delpi12]

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

Код:

for j:=0 to form1.componentscount do 

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

[delpi12]

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

Код:

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]

Код:

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

Код:

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;

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

[Alegun]

Код:

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;