小编nkr*_*ron的帖子

我试图创建一个运行时线程,但线程表现得很奇怪,代码没有画布引用.

procedure TBruteThread.Execute;
var
  j: Integer;
begin
  inherited;
  FreeOnTerminate:=True;
  for j:=1 to StrToInt(Form1.Edit1.Text) do begin
    if Terminated then break;
    Form1.Label2.Caption:=IntToStr(j);
  end;
  Form1.Label2.Caption:='Thread is destroyed';
  Self.Terminate;
end;

有人有任何想法解决这个奇怪的问题吗？