Цитата:
|
Сообщение от lmikle
Можно и так, и так. Как тебе угоднее. Если дробное, то можно использовать функции CurrToStr и FloatToStr (соответственно StrToFloat и StrToCurr). А вообще, для денег есть хорошие компоненты специализированные - там кроме всего прочего вынесена проперть, дающая доступ е данным в числовом формате, а не в строковом.
|
А если c OnChange, событие назначать на первый Edit или на второй?Или на оба одинаковые?
Делаю по кнопке. Вылезает EConvertError при попытке оставить один из Edit'ов пустым.
Код примерно так выглядит:
procedure TForm3.Button1Click(Sender: TObject);
begin
I1:=StrToInt(Edit1.Text);
K1:=StrToInt(Edit2.Text);
I2:=StrToInt(Edit3.Text);
K2:=StrToInt(Edit4.Text);
R1:=I1*K1;
R2:=I2*K2;
Edit4.Text:=FloatToStr(R1);
Edit5.Text:=FloatToStr(R2);
R3:=R1+R2;
Edit6.Text:=FloatToStr(R3);
end;
I1, I2,K1,K2: Integer
R1,R2:Real