[delphi7][composant] utilisation d'une TStringList

Bonjour,

Je débute dans les composants et j'ai donc des problèmes.

Mon composant a besoin d'une TStringList comme propriété publiée.

Code:

---

1 2 3 4 5 6

private goChampsFirebird : TStringList; ... published property ChampsFirebird : TStringList read GetChampsFirebird write SetChampsFirebird;

---

dans mon constructeur j'ai mis :

Code:

---

1 2	goChampsFirebird := TStringList.Create;

---

et dans mon destructeur :

Code:

---

1 2	FreeAndNil(goChampsFirebird);

---

Mon composant compile correctement mais quand je veux l'utiliser, j'ai plein d'erreur de l'IDE (rtl70, vcl70). En fait j'arrive à saisir les valeur dans ma liste mais quand je veux y retourner c'est là que ca plante. Je n'arrive pas à voir pourquoi. En plus il me semble que les valeurs que je rentre dedans ne sont pas sauvegardées.

Ai-je omis quelque chose dans mon composant ?

Essaie de remplacer tes TStringList par des TStrings :D
Note: il y a une petite astuce pour les TStrings:

Code:

---

1 2	Tu ne peux pas faire Machin:=TStrings.Create;

---

Je crois qu'il faut caster avec une TStringList... Regarde dans les source du TMemo par exemple (la propriété Lines est de type TStrings)...

Non j'ai déjà essayé.
J'avais fait comme ca au début mais le comportement est encore pire.

Peux-tu nous montrer ton Getter et ton Setter stp?

Mais bien sur, il n'y a rien de révolutionnaire :

Code:

---

1 2 3 4 5 6 7 8 9 10

function toto.GetChampsFirebird: TStringList; begin result := goChampsFirebird; end;   procedure toto.SetChampsFirebird(const Value: TStringList); begin goChampsFirebird := Value; end;

---

:roll: Essaie directement:

Code:

---

1 2	property ChampsFirebird : TStringList read goChampsFirebird write goChampsFirebird;

---

C'est vraiment bizarre comme histoire :
Dans mon obervateur de propriétés, je vois bien ma propriété ChampsFirebird de type TStringList.

Je clique sur les [...] pour saisir des valeurs.
J'en saisie une et je valide.
Je veux retourner en saisir une autre et c'est là que ca plante.

(desepoir ...)

Même en faisant ce que je t'ai dit?
Si jamais essaye dans le Setter de mettre:

Code:

---

1 2	goChampsFirebird.Assign(Value);

---

Et si tu fais comme ceci :

Code:

---

1 2 3 4 5 6

private goChampsFirebird : TStrings; ... published property ChampsFirebird : TStrings read GoChampsFirebird write SetChampsFirebird;

---

Ensuite dans ton Contructeur :

Code:

---

1 2	goChampsFirebird := TStringList.Create;

---

Est ce que ça ne marche pas ?

A+

Bon cela semble fonctionner.
Ce que j'ai fait (un mixte de tout ce que vous avez dit) :

Code:

---

1 2 3 4 5 6

private goChampsFirebird : TStrings; ... published property ChampsFirebird : TStrings read GoChampsFirebird write SetChampsFirebird;

---

et

Code:

---

1 2	goChampsFirebird.Assign(Value);

---

Avec tout ca mon composant se comporte correctement. :D

Merci de votre aide.

Mais avec plaisir :D
N'oublie pas le tag [Résolu] :wink: