一,获得运行时间;
var T1,T2 : double; begin T1 := GetTickCount; //需要做的事情 T2 := GetTickCount; ShowMessage( floatToStr( ( (T2-T1)/1000)) )+‘秒‘ );//获取程序运行时间 end;
时间: 2024-12-15 13:39:05
一,获得运行时间;
var T1,T2 : double; begin T1 := GetTickCount; //需要做的事情 T2 := GetTickCount; ShowMessage( floatToStr( ( (T2-T1)/1000)) )+‘秒‘ );//获取程序运行时间 end;