Komponenten-Entwicklung: xyz[i].name

[Jens Schumann]

Hallo,
klar geht das. Da Du aber scheinbar Deinen Source nicht posten willst müsste ich jetzt
ein Beispiel selber machen. Also bitte zeige Deinen Source

[lkz633]

Danke für deine Hilfe, hier mal der Source:

Code:

type tcontactitem = class
  private
    Fname: string;
    procedure Setname(const Value: string);
  public
    property name: string read Fname write Setname;
end;


type tContactItemList = class(TList)
  private
    function GetItems(Index: Integer): tcontactitem;
    procedure SetItems(Index: Integer; const Value: tcontactitem);
  public
    property Items[Index : Integer]: tcontactitem read GetItems write SetItems;default;
end;


type
  Toutextract = class(TComponent)
  private
    procedure SetOutlookVersion(const Value: outlookversion);
    function Getcontacts(Index: Integer): TContactItemlist;
    procedure Setcontacts(Index: Integer; const Value: TContactItemlist);
  protected
  public
    constructor create(AOwner: TComponent); override;
    destructor destroy;
    property contacts[Index : Integer]: TContactItemList read Getcontacts write Setcontacts;
  end;

[Jens Schumann]

Hallo,
da scheint so einiges durcheinander zu sein. Ich bastel Dir mal ein Beispiel.
Bis gleich.

[Jens Schumann]

Hallo,
studiere mal das Beispiel

[lkz633]

Ich steh anscheinend grad auf dem Schlauch da ich es immer noch nicht hinbekomme:

Habe jetzt das hier:

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;

Also

Code:

Komponente.contacts[i].name

klappt jetzt, leider aber auch

Code:

Komponente.contacts.name

Warum?

Ausserdem sollte

Code:

komponente.contacts.count

funktionieren, es geht natürlich nicht sondern nur

Code:

komponente.count

aber wo soll ich denn sonst diese Deklaration hintun? Ich will ja auch nicht

Code:

contacts[1].count

Danke für deine Geduld und Mühe
lkz633

[Jens Schumann]

Zitat:

Zitat von lkz633

Ausserdem sollte

Code:

komponente.contacts.count

funktionieren, es geht natürlich nicht

Das kann auch nicht funktionieren, da contacts vom Type Tcontactitem ist und Tcontactitem keine
Count property hat.

Zitat:

Zitat von lkz633

Code:

Komponente.contacts.name

Warum das klappt ist mir schleierhaft.

Wenn Du Deinen Code komplett (also mit Methoden usw) posten würdest schau ich mir das noch einmal an.

[lkz633]

Zitat:

Zitat von Jens Schumann

Zitat:

Zitat von lkz633

Ausserdem sollte

Code:

komponente.contacts.count

funktionieren, es geht natürlich nicht

Das kann auch nicht funktionieren, da contacts vom Type Tcontactitem ist und Tcontactitem keine
Count property hat.

Genau dies will ich aber ja erreichen, deswegen meine ganzen Umwege mit einer zusätzlichen TContactList, da diese dann eine Count Eigenschaft hätte.

Ich würde also gerne sowohl

Code:

Komponnete.contacts[i].name;

als auch

Code:

Komponente.contacts.count

erreichen.

Geht dies dann gar nicht?

Gruss lkz633

[Jens Schumann]

Hallo,
da Du keine Source rausrückst muss ich jetzt mit meinen Beispiel kommen

Delphi-Quellcode:

  TMyListItems = class;

  TMyListItem = class(TObject)
  private
    function GetCount: Integer;
  private
    FName: String;
    FMyListItems : TMyListItems; 
  public
    constructor Create(MyListItems : TMyListItems);
    property Count : Integer read GetCount;
    property Name : String read FName write FName;
  end;

...

function TMyListItems.Add(const aName : String): TMyListItem;
begin
  Result:=TMyListItem.Create(Self);
  Result.Name:=aName;
  FList.Add(Result);
end;

...

function TMyListItem.GetCount: Integer;
begin
  If Assigned(FMyListItems) then
    Result:=FMyListItems.Count
    else
      Result:=-1; // Zeigt dass das TMyListItem in keiner Liste hängt
end;

Der Trick ist , in jedem TMyListItem sich den entsprechenden TMyListItems zu merken.

[lkz633]

Aber dann kann ich doch immer noch nicht contacts.count machen oder?

Hier mein Code(mehr hab ich seit 3 Stunden nicht zustandegebracht :wall: )

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;

[Jens Schumann]

Hallo,
Du hast mich immer noch nicht verstanden. Ich möchte die komplette unit !!!
Auch den Code für die Methoden !!! D.h. ich möchte z.B. sehen wie Du den Setter Setcontacts realisiert hast. Damit das ganze mal richtig testen kann.