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+

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

Tagy: ,

Praxe

Komentování ukončeno

Naše nabídka

MVP
Ing. Radek Červinka - Embarcadero MVP
profil na linkedin, Twitter:@delphicz

Nabízím placené poradenství a konzultace v oblasti programování a vývoje SW.
Dále nabízíme i vývoj speciálního software na zakázku.

Neváhejte nás kontaktovat (i ohledně reklamy).

Delphi Certified Developer

O Delphi.cz

Delphi je jediný moderní RAD nástroj podporující tvorbu nativních aplikací pro platformu Win32, Win64, Mac OSX a na iPhone a Android.

Delphi.cz je nezávislý portál pro uživatele Delphi. Portál není koncipován pro úplné začátečníky, i když i ti se zde nebudou nudit, ale spíše na programátory, kteří již něco znají a chtějí své znalosti dále rozvíjet a sledovat novinky.

Poslední komentáře

Comment RSS

Dle měsíců