EPX-Studio操作多线程的方法

Posted 2020-11-26 xenli

procedure TF1167908962.Button1Click(Sender: TObject);
begin
  ThIndex := 1;
  EPXThread1.StartThread;
  EPXThread2.StartThread;
end;

procedure TF1167908962.Button2Click(Sender: TObject);
begin
this.Alert(‘现在是‘ + DateTimeToStr(Now));
end;
procedure TF1167908962.EPXThread1Thread(Sender: TObject);
begin
  while ThIndex < 1000 do
  begin
    Inc( ThIndex );
    Memo1.Lines.Add( IntToStr(ThIndex) );
  end;
end;

procedure TF1167908962.EPXThread2Thread(Sender: TObject);
begin
  while ThIndex < 1000 do
  begin
    Inc( ThIndex );
    Memo2.Lines.Add( IntToStr(ThIndex) );
  end;
end;