Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
29. Jul 2010
Nur so 'ne Idee: Initialisierst du die Instanzen der jeweiligen Listen (z.B. TUser.Groups) denn auch? Es handelt sich dabei schließlich um Objekte.
Ich würde das so realisieren (reduziert auf Groups):
type
TUser = class(TObject)
private
FGroups: TGroups;
public
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
28. Jul 2010
Ich weiß nicht mehr, ob in D2009 die Generics schon richtig funktionierten, aber du kannst ja auch mal so was versuchen:
TDirectories = TList<TDirectory>;
TOptAttrs = TList<TOptAttr>;
TGroups = TList<TGroup>;
TQuotas = TList<TQuota>;
Viele deiner Methoden können damit vollständig entfallen oder einfach gemapt werden: