[Aksanka2004]

Доброго времени суток! Помогите плз разрешить неразрешимое))
Есть два Edit, в одно пользователь вводит число, программа переводит это число в проценты(умножает на 0,01) и выводит в другом edit или совершает какую-либо еще мат. операцию. Ну как в Excel с ячейками. Вопрос в том, возможно ли это? Если да, каким образом? Или это проще сделать как-то еще? Значения из второго Edit понадобятся в дальнейшем.

Заранее черрртовски благодарна за помощь))))

[NumLock]

Edit2.Text:=FloatToStr(StrToFloat(Edit1.Text)*0.01 );

[toNN]

Код:

chislo:=strtoint(Edit1.text);
proc:=chisclo*0.01;
Edit2.text:=floattostr(proc);

[Aksanka2004]

Спасибо огромное))Работает) А ежели еще вопросы появяцца сюда писать или др. темы создавать?

[toNN]

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

Спасибо огромное))Работает) А ежели еще вопросы появяцца сюда писать или др. темы создавать?

Ну если вопрос по данной проблеме то сюда пиши =) А так новую тему создавай =)

[Aksanka2004]

А если есть два Edit, в одно вводится сумма, в другое кол-во, результирующий третий Edit. Как тогда? Как сделать, через OnChange или нужна кнопка и на нее записывать по OnClick?
З.Ы. Вводиться в Edit с суммой может не только целое, но и дробное.
Помогите плз!)))

[lmikle]

Можно и так, и так. Как тебе угоднее. Если дробное, то можно использовать функции CurrToStr и FloatToStr (соответственно StrToFloat и StrToCurr). А вообще, для денег есть хорошие компоненты специализированные - там кроме всего прочего вынесена проперть, дающая доступ е данным в числовом формате, а не в строковом.

[Aksanka2004]

Сообщение от 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