阿斯蒂芬
阿萨德发生的发生阿斯蒂芬
阿萨德发生的发生代发收到飞
阿斯蒂芬
撒旦法撒地方
阿萨德发生的发生
金阿奎猎杀对决菲拉斯代发件
unit main;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ddj.Task;typeTFormMain = class(TForm)Memo1: TMemo;button1: TButton;procedure button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }procedure helloWorld(task: TTask);end;varFormMain: TFormMain;implementation{$R *.dfm}procedure TFormMain.helloWorld(task: TTask);
beginMemo1.Lines.Add(Format('hello world，线程ID: %s', [TThread.Current.ThreadID.ToString]));
end;procedure helloWorld2(task: TTask);
beginOutputDebugString(PChar(Format('hello world，线程ID: %s', [TThread.Current.ThreadID.ToString])));
end;procedure TFormMain.button1Click(Sender: TObject);
begintask.ui(helloWorld).start;task.bg(helloWorld2).start;
end;end.
