引入 DateUtils
starttime:=now();
stoptime := Now();
r1 := MilliSecondsBetween(stoptime, starttime); //取得计时时间,单位毫秒(ms)
StatusBar1.Panels.Items[2].Text := '本次查询耗时:' + inttostr(r1) + '毫秒';
引入 DateUtils
starttime:=now();
stoptime := Now();
r1 := MilliSecondsBetween(stoptime, starttime); //取得计时时间,单位毫秒(ms)
StatusBar1.Panels.Items[2].Text := '本次查询耗时:' + inttostr(r1) + '毫秒';