delphi 使用TTask简单用法

uses

    System.Threading, System.Diagnostics;

procedure TForm1.Button3Click(Sender: TObject);

begin

  TTask.Run(

    procedure

    begin

    //  Sleep(100);

      var stopwatch := TStopwatch.Create;

      TThread.Synchronize(nil,

        procedure

  var

    I: Integer;

  begin

          stopwatch.Start;

for I := 0 to 10000 do

begin

Memo1.Lines.Add(i.ToString);

Application.ProcessMessages;

end;

        end);

      TThread.Synchronize(nil,

        procedure

        begin

          stopwatch.Stop;

          Caption := stopwatch.ElapsedMilliseconds.ToString;

        end)

    end);

end;