Тема: нужна маленькая поправка!
Показать сообщение отдельно
  #2  
Старый 25.05.2010, 04:52
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Добавить TEdit на форму и в обработчике клика по кнопке дописать:

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  h:=strtoint(edit3.Text);
  ...
Ответить с цитированием