delphi - 如何使用TThread.Synchronize()检索TEdit控件的文本？

Question

如何使用TThread.Synchronize()检索TEdit控件的文本。我应该将TEdit文本分配给全局变量还是其他？

Answer 1

首先，在您的表单中声明一个检索文本的方法。
可以从主线程和辅助线程中调用此方法：

Type
  TMyGetTextProc = procedure(var s: String) of object;

procedure TForm1.GetMyText(var myText: String);
begin
  TThread.Synchronize(nil,
    procedure 
    begin
      myText := ATedit.Text;
    end
  );
end;

其次，当您创建线程时，在create方法中传递（callback）方法，并使用它以线程安全的方式获取文本：

Type
  TMyThread = Class(TThread)
  private
    FGetTextCallback: TMyGetTextProc;
  public
    constructor Create(aGetTextProc: TMyGetTextProc);
  ...
  end;

请注意，如果您愿意，也可以直接从线程进行同步。关键是您将回调方法传递给工作线程。

正如David在评论中提到的，始终将UI部分与工作线程分开（对于所有业务逻辑也是如此）。即使在小型程序中，由于它们会随着时间的流逝而增长，因此突然之间，您会发现自己（或同事）处境不好，并且拥有许多难以维护或理解的代码。