delphi - 如何显示执行长 SQL 查询的耗时？

Question

我需要在查询执行之前显示一个弹出窗口，显示执行 SQL 查询时耗时，并在查询结束时关闭该窗口。

其实我就是这样做的

var
  frm : tFrmPopupElapsed;
  // this form has a TTimer and a TLabel to show the elapsed time
  // but the label is not updated, I tried using update and refresh
  // but nothing happens
begin
  frm := tFrmPopupElapsed.Create(nil);
  try
    frm.Init; // this procedure enables the timer
    frm.Show();
    ExecuteMyVeryLongQuery();
  finally
    frm.Close; 
  end;
end;

如何更新标签以显示查询执行时所用的时间？使用计时器？还是线程？

Answer 1

您需要异步运行查询，以便同时更新表单。
在不弄脏线程的情况下完成此操作的最简单方法是使用 Andreas Hausladen 的 AsynCalls library .
您还可以查看 OmniThread Library 作者:Primoz Gabrijelcic。