Ja sorry, stimmt...die Frage ist nicht so deutlich rüber gekommen.
Ein anderes Beispiel mit verständlicheren Namen:
Delphi-Quellcode:
type
TStadt = class (TObject)
Name : String;
Einwohner : Integer;
Flaeche : Integer;
end;
type
TStadtliste = class(TObjectList)
protected
function getStadtItem(Index: Integer): TStadt; virtual;
procedure setStadtItem(Index: Integer; Stadt: TStadt); virtual;
function getHStadtItem(Index: Integer): TStadt; virtual;
procedure setHStadtItem(Index: Integer; Stadt: TStadt); virtual;
public
function AddStadt(Stadt: TStadt): Integer; virtual;
function RemoveStadt(Stadt: TStadt): Integer; virtual;
function IndexOfStadt(Stadt: TStadt): Integer; virtual;
procedure InsertStadt(Index: Integer; Stadt: TStadt); virtual;
function AddHStadt(Stadt: TStadt): Integer; virtual;
function RemoveHStadt(Stadt: TStadt): Integer; virtual;
function IndexOfHStadt(Stadt: TStadt): Integer; virtual;
procedure InsertHStadt(Index: Integer; Stadt: TStadt); virtual;
property Staedte[index: Integer]: TStadt read getStadtItem write setStadtItem; default;
property Hauptstaedte[index:Integer]:TStadt read getHStadtItem write setHStadtItem;
end;
D.h. ich will quasi in einer Objektliste zwei Stadtlisten haben. Geht das überhaupt oder wie ist das ansonsten realisierbar? Wenn ja, wie komme ich an den Count von "Hauptstädte"? Über Staedte komme ich über TStadtliste.Count dran, da die property ja auf default gesetzt ist...
Hoffe es ist jetzt verständlicher...