Zitat von
Elvis:
Bleistift:
Delphi-Quellcode:
TContactList = class
private
fInnerList : TObjectList;
function GetItem(aIndex: Integer): TContact;
procedure SetItem(aIndex: Integer; aItem: TContact);
protected
property InnerList : TObjectList read fInnerList;
public
destructor Destroy; override;
procedure Add(aItem : TContact);
procedure Delete(aIndex: Integer);
property Items[aIndex: Integer]: TContact read GetItem write SetItem;
end;
Da fehlt aber der Konstruktor. Oder wo und wann würde man fInnerList erzeugen?
