Critical Sections

[Sämy]

Delphi-Quellcode:

So: ?

procedure test;
begin
  FCs := TCriticalSection.Create;
  FCs.Enter;
  test;
  FCS.Leave;
end;

[/delphi]
Dies Funktioniert nicht (kein Deadlock)

Das mit dem Doppel-destroy seh ich ein. Gibt Probleme, wenn jemand diese Methode überschreiben will...