[pascal]
var
StartTime, EndTime: cardinal;
begin
StartTime := GetTickCount;
sleep(1000);
EndTime := GetTickCount;
caption := (IntToStr(EndTime – StartTime) + ‘ ms’);
end;
[/pascal]
行動開發.APP開發教學.Swift開發教學.IOS開發教學.Andriod開發教學.Delphi開發.資料庫程式.進銷存.餐飲POS系統
[pascal]
var
StartTime, EndTime: cardinal;
begin
StartTime := GetTickCount;
sleep(1000);
EndTime := GetTickCount;
caption := (IntToStr(EndTime – StartTime) + ‘ ms’);
end;
[/pascal]