Zitat von
himitsu:
Und das Try-Finally nicht vergessen, denn die CS muß eben unbedingt genau so oft verlassen/freigegeben werden, wie sie betreten/gesperrt wurde.
Ja, das habe ich jetzt konsequent in jeder Function und Procedure, wie beim Beispiel von Count, eingebaut:
Delphi-Quellcode:
Function TMyList.Count:Integer;
Begin
lock;
try
Result:=MyList.Count;
finally
unlock;
end;
End;