<< Wii Remote a Delphi | Delphi 2010 - formátovač kódu >>

Použití anonymních metod v Delphi

vložil Radek Červinka 30. ledna 2010 00:15

Naprosto perfektní použití anonymních metod z Delphi 2009+

    1type
    2  THelper = class
    3    class procedure Lock(O: TObject; Proc: TProc); static;
    4  end;
    5
    6class procedure THelper.Lock(O: TObject; Proc: TProc);
    7begin
    8  TMonitor.Enter(O);
    9  try
   10    Proc();
   11  finally
   12    TMonitor.Exit(O);
   13  end;
   14end;

Použití je pak velmi jednoduché, uvedený kód je chráněn kritickou sekcí:

    1procedure TMyObject.Process;
    2begin
    3  Obj.Lock(Self, procedure
    4    begin
    5      //kód chráněn kritickou sekcí
    6    end);
    7end;