Aber dann kann ich doch immer noch nicht contacts.count machen oder?
Hier mein Code(mehr hab ich seit 3 Stunden nicht zustandegebracht
)
Code:
type tcontactitem = class
private
Fname: string;
public
property name: string read Fname write Fname;
end;
type
Toutextract = class(TComponent)
private
FList : TList;
function Getcontacts(Index: Integer): TContactItem;
function GetCount: Integer;
procedure Setcontacts(Index: Integer; const Value: TContactItem);
public
constructor create(AOwner: TComponent); override;
destructor destroy;override;
property contacts[Index : Integer]: TContactItem read Getcontacts write Setcontacts; default;
property Count : Integer read GetCount;
end;