09.11.2009, 13:38
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
149
|
|
if edit5.text < '5' then
showmessage('Минимальное значение для таймера "5" сек.') else
begin
timer1.Interval:= strtoint(edit5.text + '000');
timer1.enabled:=true;
edit5.ReadOnly:= true;
end;
ну ты даешь, строки сравниваешь!
if strtoint(edit5.text) < 5 then
showmessage('Минимальное значение для таймера "5" сек.') else
begin
timer1.Interval:= strtoint(edit5.text) *1000;
timer1.enabled:=true;
edit5.ReadOnly:= true;
end;
что ты там дальше сказа я не очень понял, твоя основная проблема в том что ты путаешься в типах данных.
|
|
|