var begtime: dword; begin begtime := GetTickCount; while (GetTickCount-begtime > 100) and (not Terminated) do //具体间隔时间你自己调整 begin dosth... begtime := GetTickCount; end;附,严重警告提问人:你这种情况,在程序里面出现一下没事,如果和你老婆或是女友之间出现的话,一定要及早调整或是去医院检查
楼上的回答太强了,我是指最后的部分... @_@程序有问题,要这样写一次也执行不了,第一次的GetTickCount-begtime > 100就退出了,var begtime: cardianl; begin while not terinated do begin begtime := GetTickCount; while (GetTickCount-begtime > 100) do sleep( 10 ); // 稍微休息一下,要不然cpu一直100% doSomething(); end; end;这样也不是完全精确的,因为doSomething()的时间没法控制。
靠,拷贝下来没改符号...while (GetTickCount-begtime < 100) do // <- 这里改成小于 ...
timer不精确的
begtime: dword;
begin
begtime := GetTickCount;
while (GetTickCount-begtime > 100) and (not Terminated) do //具体间隔时间你自己调整
begin
dosth...
begtime := GetTickCount;
end;附,严重警告提问人:你这种情况,在程序里面出现一下没事,如果和你老婆或是女友之间出现的话,一定要及早调整或是去医院检查
begtime: cardianl;
begin
while not terinated do
begin
begtime := GetTickCount;
while (GetTickCount-begtime > 100) do
sleep( 10 ); // 稍微休息一下,要不然cpu一直100% doSomething();
end;
end;这样也不是完全精确的,因为doSomething()的时间没法控制。
...