Цитата:
|
Сообщение от 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? Ну можно тогда через запятую вывести. А так ничем не отличается от первого варианта.