| ( |
|
|
|||
| Returns the amount of milliseconds that have past since 00:00:00. Useful when measuring process-performance. | |||
global
procedure OnApplicationStartup()
begin
LongInt l,i;
Record INVc INr;
l = GetMilliTime;
SetCompany(1,true);
stopalert("SetCompany: " & (GetMilliTime-l) & " milliseconds");
i = 0;
l = GetMilliTime;
while(i<10) begin
SetLoopPosition(INr,0);
while(LoopMain(INr,1,true)) begin
end;
i = i + 1;
end;
stopalert("Record loop: " & (GetMilliTime-l) & " milliseconds");
return;
end;
 |
|
| Related topics: | |