Показать сообщение отдельно
  #6  
Старый 13.01.2011, 16:26
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Предыдущий оратор тоже подал вариант.
Также можно сделать пересчёт по изменению Edit1 или Edit2.
Для этого нужно повесить на событие OnChange обоих Edit'ов такой код:
Код:
try
speed:=StrToInt(Edit1.Text);
except
speed:=0;
end;
try
time:=StrToInt(Edit2.Text);
except
time:=0;
end;
Edit3.Text:=IntToStr(speed*time);

В обоих примерах переменные speed и time принадлежат типу integer, то есть
Код:
speed,time:integer;
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием