網路上找到的Delay function好像都是舊版delphi的，只適用在windows，稍微改了一下，現在跨平台也都可以用了！
procedure Delay(msec: LongInt);
var
Timestart:Tdatetime;
begin
Timestart := gettime;
while (gettime - Timestart)*100000000 < msec do
begin
Application.ProcessMessages;
end;
end;
文章標籤
全站熱搜
留言列表
