Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mjustin,
18. Jan 2016
type
TTemperaturList=class(TObjectList)
function getItem(index: Integer): TTemperatur; virtual;
procedure setItem(index: Integer; Temperatur: TTemperatur); virtual;
public
property Items: TTemperatur read getItem write setItem; default;
procedure Insert(index: Integer; Temperatur: TTemperatur); virtual;
function Add(Temperatur: TTemperatur): Integer; virtual;
...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by mjustin,
18. Jan 2016
Bei mir sind Container immer z.B. so aufgebaut:
type
TTemperaturList=class(TObject)
private
Liste: TObjectList;
...
public