一,获得运行时间;
var T1,T2 : double; begin T1 := GetTickCount; //需要做的事情 T2 := GetTickCount; ShowMessage( floatToStr( ( (T2-T1)/1000)) )+‘秒‘ );//获取程序运行时间 end;
时间: 2024-10-14 11:45:27
一,获得运行时间;
var T1,T2 : double; begin T1 := GetTickCount; //需要做的事情 T2 := GetTickCount; ShowMessage( floatToStr( ( (T2-T1)/1000)) )+‘秒‘ );//获取程序运行时间 end;