![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#8
|
|||
|
|||
![]() Цитата:
А если 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 Последний раз редактировалось Aksanka2004, 03.06.2010 в 01:14. |