- Код: Выделить всё
oldTime:=Time;
repeat
begin
newTime:=Time;
x:=newTime-oldTime;
if x<0 then x:=10;
end;
until x>=10;
Time - это функция, возвращающая системное время.
После компиляции в Freepascal программа нагружает процессор на 100%, а если компилировать в Borland Pascal 5.5, то около 20%. Borland Pascal не годится из-за другой причины (win32).
Посоветуйте, пожалуйсто, как оргнизовать таймер.
Спасибо!