Delphi-Quellcode:
type
TTemperaturList=class(TObjectList)
function getItem(index: Integer): TTemperatur; virtual;
procedure setItem(index: Integer; Temperatur: TTemperatur); virtual;
public
property Items[index: Integer]: TTemperatur read getItem write setItem; default;
procedure Insert(index: Integer; Temperatur: TTemperatur); virtual;
function Add(Temperatur: TTemperatur): Integer; virtual;
function Remove(Temperatur: TTemperatur): Integer; virtual;
...
Die Methoden getItem und setItem brauchen nicht als published declariert werden, eventuell fehlt hier das private. Published wird nicht benötigt ausser man möchte die Klasse über das Delphi
DFM Streaming oder klassische
RTTI ansprechen.