Zitat von
Phoenix:
Äh. Das was in Pascal das keyword 'class' ist, ist in anderen Sprachen das Keyword 'static'.
Nur dass es in Pascal so etwas wie Metaklassen gibt...
Delphi-Quellcode:
type
TMyList = class
private
class var ElementCounts : TDictionary<TMyListClass, Integer>;
public
class property ElementCount : Integer read GetElementCount;
End;
...
class constructor TMyList.Create;
begin
ElementCounts := TDictionary.Create;
end;
class function TMyList.GetElementCount : Integer;
begin
if not ElementCounts.TryGetValue(Self, {out} Result) then
Result := 0;
end;
In Ermangelung eines entsprechenden Delphis zum Testen gebe ich lieber keine Garantie, dass TDictionary da einen vernünftigen Hash rausholt
. Die Hilfe schweigt sich selbstverständlich aus.