[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);