我的公共类库方法过程调用清单
01、计时
procedure TimerBegin(var ATimerBegin:Cardinal);
function TimerEnd(var ATimerBegin:Cardinal):Cardinal;
调用方法:
var
ATimerBegin :Cardinal;
TimerBegin(ATimerBegin);
//......
LTips:='耗时(ms):'+UIntToStr(TimerEnd(ATimerBegin)) ;
TextTips.Text:=LTips;
RectTips.Visible:=true;