[casperock]

Нубский вопрос, но все-же при во второй строке ошибка перед floattoint

1) a:=(strtofloat(edit1.Text)/60)*1000;
2) timer1.interval:=floattoint(a);

[ChinYan]

А Interval часом не целое?

[casperock]

Целое. НЕ подскажете как перевести дробь с остатком в целое?

[Ildar-tsr]

Код:

timer1.interval:=trunc(a); //отсекает полностью дробную часть (14.1 = 14, 65.99945 = 65)
timer1.interval:=round(a); //округляет до целого (1.45 = 1, 3.536 = 4)

Исходи из того что твоей задаче больше подходит.

[casperock]

Скажите а как сделать чтоб просто точка убиралась до тысячных? Мне нужна точность, метроном пишу.
Например:

1.5478 = 1547
2.123 = 2123

[Ildar-tsr]

a - целое, f - дробное:

Код:

a:= trunc(f*1000);

Если f = 3.345435, то целое будет 3345,
если f = 46.1233, то целое будет 46123,
если f = 15.2, то целое будет 15200.
То что нужно или я не так понял?

[casperock]

Спасибо=))