vložil Radek Červinka
30. ledna 2010 00:15
Naprosto perfektní použití anonymních metod z Delphi 2009+
type
THelper = class
class procedure Lock(O: TObject; Proc: TProc); static;
end;
class procedure THelper.Lock(O: TObject; Proc: TProc);
begin
TMonitor.Enter(O);
try
Proc();
finally
TMonitor.Exit(O);
end;
end;
Použití je pak velmi jednoduché, uvedený kód je chráněn kritickou sekcí:
procedure TMyObject.Process;
begin
Obj.Lock(Self, procedure
begin
//kód chráněn kritickou sekcí
end);
end;
Fakt prima.
původní článek