как задать интервал таймера меньше секунды

[Marsel737]

Приветствую.

Столкнулся с такой проблемой, нужно задать интервал меньше секнду, интервал вводится в комбобокс:

tmrKeyPress1.Interval := StrToInt(cbInterval1.Text) * 1000;

Но для того чтобы задать интервал 0.7 сек, к примеру, это не целое число, поэтому будет ошибка, а если написать StrToFloat, то будет несоответствие типов.

[DeKot]

Интервал таймера задается в мсек :
1000 - 1 сек
500 - 0,5 сек
100 - 0,1 сек
20 000 - 20 сек и т. д.
Меньше 50 уже будут ошибки, (аппаратные проблемы системы), даже при заданном интервале таймера = 10 фактическое время будет приблизительно 64 мсек. Это справедливо и для Sleep().
В Вашем случае - уберите множитель 1000 и задавайте в комбобоксе интервал явно.

[Пепел Феникса]

tmrKeyPress1.Interval:=Trunc(StrToF loat(cbInterval1.Text)*1000);

только и всего.

[Marsel737]

Пепел Феникса, спасибо за подсказку