Nee, so geht das nicht. Es ist nur sinnvoll einen Typ Stadt
oderhStadt in der Liste zu nutzen. (wie von Mutze schon beschrieben)
Versuchs mal so:
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;
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;
property Stadt[index: Integer]: TStadt read getStadtItem write setStadtItem; default;
end;
Und daraus jetzt zwei Stadtlisten machen (Achtung - jetzt kommt der riesen Clou von
OOP, bzw. weswegen man den ganzen Mist macht
)
Delphi-Quellcode:
var Staedte:TStadtListe;
var HStaedte:TStadtListe;
...
Staedte:=TStadtListe.create;
HStaedte:=TStadtListe.create;
//jetzt kannst du Staedte und HStaedte nutzen
Du erstellst einfach zwei Instanzen und bekommst zwei voneinander unabhängige Listen.