Однако, исключительно интереса ради я таки сделал вариант IC, выдающий данные с точностью до микросекунд. Чтобы было
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.|
}
Это к заказу вида
Леонид писал(а):
Напишите IC на тики
------------ Дoбавленo в 22.58:
используя QueryPerformanceCounter, QueryPerformanceFrequency
Поиск
Друзья
Администрация