Ответ: модули
Я не нашёл, поэтому пишу по памяти
unit aa;
interface
var t:integer;
function fps:integer;
implementation
function fps:integer;
var dt:integer;
begin
dt:=GetRelativeTimeMs-t;
//время с предыдущего вызова функции
t:=t+dt;
fps:=1000 div dt;
end;
initialization
t:=GetRelativeTimeMs;
end.
P.S. простой, неточный, недоработанный))
P.P.S. Можно хранить предыдущее значение функции в ещё одной переменной, и если оно меньше чем 1000/dt, то увеличить на единицу, иначе уменьшить. Результат получится более стабильным
P.P.P.S. но мне лень))
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|