delphi计算两个时间差别

引入 DateUtils

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