QuickLib/samples/fpc/QuickThreads/AnonymousThreads.lpr

program AnonymousThreads;

{$APPTYPE CONSOLE}

{$MODE DELPHI}

uses
  Classes,
  Quick.Commons,
  Quick.Console,
  SysUtils,
  Quick.Threads;

type
  TMyProcs = class
    class procedure DoWork;
    class procedure DoTerminate;
  end;

  class procedure TMyProcs.DoWork;
  var
    i : Integer;
  begin
    for i := 0 to 10 do cout('Working %d',[i],etTrace);
    cout('executed thread',etSuccess);
  end;

  class procedure TMyProcs.DoTerminate;
  begin
    cout('terminated thread',etSuccess);
    cout('PRESS <ENTER> TO EXIT',TLogEventType.etInfo);
  end;

begin
  try
    TAnonymousThread.Execute(TMyProcs.DoWork)
    .OnTerminate(TMyProcs.DoTerminate).Start;

    ConsoleWaitForEnterKey;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.