Add(InlineCode,2961482,434,91)
{
 VarPoints=#6:MyTime|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|9:   public|44:   procedure MyTime(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.MyTime;|31:var MyPerfCntr,MyPerfFrq:int64;|5:begin|39:   QueryPerformanceCounter(MyPerfCntr);|40:   QueryPerformanceFrequency(MyPerfFrq);|38:   MyPerfFrq := MyPerfFrq div 1000000;|51:   dtInteger(dt,integer(MyPerfCntr div MyPerfFrq));|4:end;|0:|4:end.|
}