delphi - 在执行 DBExpress 查询时，如何让我的程序响应用户输入？

Question

ibdac 查询（http://www.devart.com/ibdac/components.html）有一个函数executing，我可以在其中编写如下内容：

 while MyQuery.Executing do
 begin
   application.ProcessMessages;
   Sleep(1);
 end;

如何使用 dbexpress 查询实现相同的代码（没有类似的功能）？

Answer 1

没有类似的功能。但是您可以在后台线程中执行 MyQuery，并且主线程将在后台线程完成时等待。例如：

type
  TMyThread = class(TThread)
  private
    FQuery: TSQLQuery;
  protected
    procedure Execute; override;
  public
    constructor Create(AQuery: TSQLQuery);
  end;

constructor TMyThread.Create(AQuery: TSQLQuery);
begin
  inherited Create;
  FreeOnTerminate := False;
  FQuery := AQuery;
end;

procedure TMyThread.Execute;
begin
  FQuery.ExecSQL;
end;

var
  oThread: TMyThread;
....

  oThread := TMyThread.Create(MyQuery);
  try
    while not oThread.Finished do begin
      Application.ProcessMessages;
      Sleep(1);
    end;
  finally
    oThread.Free;
  end;

PS：顺便说一句，我正在使用AnyDAC。它具有内置的后台执行功能。