13.06.2010, 21:46
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
спит 1 мс в отдельном потоке а потом плюсует единицу в переменную, это для замера к-ва мсок с начала загрузки, код на PureBasic, я ток кусок привел, работает норм
Я тебе к тому, что твоя процедура может неправильно считать время
Я сделал тривиальный тест на дельфи:
var
old : Cardinal;
i :Integer;
begin
old := GetTickCount;
i := 0;
while i < 1000 do
begin
Sleep(1);
Inc(i);
end;
ShowMessage(IntToStr(GetTickCount - Old));
Все как у тебя: задержка, инкремент переменной
Так вот, в сообщении выдало 1953. Т.е. этот цикл выполнялся в два раза дольше чем должен был (по твоим рассуждениям)
Отсюда и у тебя неправильные результаты, типа скорость в 2 раза ниже.
PS Это предположение
|
|
|