性能测试记录时间

于 2010-06-18 15:39:30 发布 · 239 阅读

编程综合专栏收录该内容

10 篇文章

订阅专栏

本文提供了一个性能测试的代码示例，展示了如何记录时间并显示测试结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

性能测试，记录时间代码：

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;