EPX-Studio操作多线程的方法
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;
EPX是利用基于Pascal的FastScript语言作为基础语言,在其中增加了许多函数与特性的一个扩展,将EPX组件本身融入到语言中去,使其能够更加灵活方便地运用EPX的所有功能,实现与EPX核心的友好交互。
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX
欢迎加入【ePx Studio学习交流群】:113140060
https://jq.qq.com/?_wv=1027&k=5MYPTFX