[samuilius]

Здравствуйте.
У меня задача написать калькулятор на умножение для нескольких edit`s

Для двух у меня получилось вот пример

procedure TForm1.edt2Change(Sender: TObject);
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

то есть при добавлении значения в edit2 , значения первого edit умножаем на значение второго edit и выводим в label.

Но следующая задача для меня сложнее и я не могу понять как ее реализовать то есть edit` ов несколько

edit1 edit 2
edit3 edit4
edit5 edit 6

label

тоесть
значения edit1 умножаем на значения edit 2
значения edit3 умножаем на значения edit 4
значения edit5 умножаем на значения edit 6

и результат выводим сразу в лейбл

помогите начинающему пожалуйста

[MiraLaklamon]

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

Здравствуйте.
У меня задача написать калькулятор на умножение для нескольких edit`s

Для двух у меня получилось вот пример

procedure TForm1.edt2Change(Sender: TObject);
begin
a := StrToFloat(edt1.Text);
b := StrToFloat(edt2.Text);
c := a*b ;
lbl1.Caption := FloatToStr(c);
end;

end.

то есть при добавлении значения в edit2 , значения первого edit умножаем на значение второго edit и выводим в label.

Но следующая задача для меня сложнее и я не могу понять как ее реализовать то есть edit` ов несколько

edit1 edit 2
edit3 edit4
edit5 edit 6

label

тоесть
значения edit1 умножаем на значения edit 2
значения edit3 умножаем на значения edit 4
значения edit5 умножаем на значения edit 6

и результат выводим сразу в лейбл

помогите начинающему пожалуйста

То есть результатов 3, а лейбл 1? Ну можно тогда через запятую вывести. А так ничем не отличается от первого варианта.

[samuilius]

нет нужно что бы результат выводился в один лейбл

[MiraLaklamon]

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

нет нужно что бы результат выводился в один лейбл

1) значения edit1 умножаем на значения edit 2
2) значения edit3 умножаем на значения edit 4
3) значения edit5 умножаем на значения edit 6

Какой из трёх результатов должен выводится в лейбл?

[samuilius]

смысл в том, что если в edit2 есть значение то значение edit1 умножаем на значение edit2 и выводим в лейбл, если в edit4 есть значение то умножаем значение edit3 на значение edit4 и плюсуем в лейбл и.т.д.

[M.A.D.M.A.N.]

На ПОЛИЗ было бы проще и гибче.

[MiraLaklamon]

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

смысл в том, что если в edit2 есть значение то значение edit1 умножаем на значение edit2 и выводим в лейбл, если в edit4 есть значение то умножаем значение edit3 на значение edit4 и плюсуем в лейбл и.т.д.

Код:

if edit2.Text<>'' then
begin
  a := StrToFloat(edit1.Text);
  b := StrToFloat(edit2.Text);
  c := a*b ;
end;

if edit4.Text<>'' then
begin
  a := StrToFloat(edit3.Text);
  b := StrToFloat(edit4.Text);
  c := c + a*b ;
end;

if edit6.Text<>'' then
begin
  a := StrToFloat(edit5.Text);
  b := StrToFloat(edit6.Text);
  c := c + a*b ;
end;

lbl1.Caption := FloatToStr(c);