性能测试,记录时间代码:
procedure TForm_WorkForm.Button1Click(Sender: TObject); var string; begin inherited; s := FormatDateTime('hh:mms', Now); Form_TEST := TForm_TEST.Create(Self); Form_TEST.OpenData(0, varNull); Form_TEST.Show; Edit.Text := S + ' ' + FormatDateTime('hh:mms', Now); end;