Prenons un exemple, ca sera plus simple pour expliquer :
J ai une classe TLien defini comme ceci :Et j ai égallement une classe Personne qui contient une TObjectList de TLien :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 type TLien = class private Fnom :String; [...] published property nom:String read Fnom write SetNom; end;Je voudrais pouvoir créer une propriété 'tableau' pour que je puisse exploiter ma classe TPersonne comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 type TPersonne = class private Flien :TObjectList; [...] end;Alors voila ce que j ai essaye :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MyPers := TPersonne.Create(...); Edit1.Text := MyPers.lien[3].nom;J'ai evidemment les 2 deux methodes qui sont déclarer comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part property lien[Index :integer]:TLien read GetLien write SetLien;Mais voila le problème ... c'est que ca ne marche pas erreur à la compilation :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 function GetLien(Index :integer) :TLien; procedure SetLien(Index :integer; Val :TLien);Est ce que j'aurais mal compris qqch dans la réalisation de propriété 'tableau' ??
Code : Sélectionner tout - Visualiser dans une fenêtre à part Published property 'lien' cannot be of type ARRAY
Est ce que c est possible d implementer ce que je veux faire ?
Toutes solutions sont les bienvenues
Partager