请问我用这种方法得到运行的时间合理吗?
var
aid: array of string;
i: Integer;
BTime,ETime : TDateTime;
begin
Query1.Close;
Query1.SQL.Text := 'select DIALBEGINTIME from dbo.PREDIALRESULT';
Query1.Open;
if Query1.IsEmpty then Exit;
BTime:=now();
SetLength(aid, Query1.RecordCount);
for i := 0 to Query1.RecordCount - 1 do
begin
aid[i] := Query1.FieldByName('DIALBEGINTIME').AsString;
Query1.Next;
end;
ETime:=now();
Label1.Caption := TimeToStr(ETime-BTime);
end;
还有更好的方法计算出程序运行的时间吗?
参考着试一下:
var
aid: array of string;
i: Integer;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select id from Mytable';
ADOQuery1.Open;
if ADOQuery1.IsEmpty then Exit;
SetLength(aid, ADOQuery1.RecordCount);
for i := 0 to ADOQuery1.RecordCount - 1 do
begin
aid[i] := ADOQuery1.FieldByName('id').AsString;
ADOQuery1.Next;
end;
end;