[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.]

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

[samuilius]

не понял что это

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

[samuilius]

спасибо сейчас попробуем

[MiraLaklamon]

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

спасибо сейчас попробуем

Ещё перед всем этим нужно обнулить переменную c:

Код:

c := 0;

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

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

не понял что это

Обратная польская запись.

[samuilius]

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

Код:

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

что то не работает написал вот как

Код:

{$R *.dfm}
с:= 0 ;
if edt2.text<>'' then
 begin
   a := StrToFloat(edt1.Text);
   b := StrToFloat(edt2.Text);
   c := a*b ;
 end;

 lbl1.Caption := FloatToStr(c);

Код:

[Error] Unit1.pas(33): Declaration expected but 'IF' found
[Error] Unit1.pas(35): Undeclared identifier: 'edt1'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(36): Undeclared identifier: 'edt2'
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(38): '.' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[MiraLaklamon]

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

что то не работает написал вот как

Код:

{$R *.dfm}
с:= 0 ;
if edt2.text<>'' then
 begin
   a := StrToFloat(edt1.Text);
   b := StrToFloat(edt2.Text);
   c := a*b ;
 end;

 lbl1.Caption := FloatToStr(c);

Код:

[Error] Unit1.pas(33): Declaration expected but 'IF' found
[Error] Unit1.pas(35): Undeclared identifier: 'edt1'
[Error] Unit1.pas(36): Missing operator or semicolon
[Error] Unit1.pas(36): Undeclared identifier: 'edt2'
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(38): '.' expected but ';' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Этот код нужно помещать внутрь обработчика события (например в тот же TForm1.edt2Change), а не просто "в голом виде".

[samuilius]

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

Этот код нужно помещать внутрь обработчика события (например в тот же TForm1.edt2Change), а не просто "в голом виде".

сори совсем уж затуркался

[samuilius]

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

Этот код нужно помещать внутрь обработчика события (например в тот же TForm1.edt2Change), а не просто "в голом виде".

но ведь если я поставлю код в обработчик edit2Change разве будут происходить изменения при добавлении значения в edit4 ?