Discussion :

[Tcheby]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
private
    goChampsFirebird : TStringList;
    ...
published
    property ChampsFirebird : TStringList read GetChampsFirebird write SetChampsFirebird;

dans mon constructeur j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
goChampsFirebird := TStringList.Create;

et dans mon destructeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pedro]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)...

[Tcheby]

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

[Pedro]

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

[Tcheby]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Pedro]

Essaie directement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
property ChampsFirebird : TStringList read goChampsFirebird write goChampsFirebird;

[Tcheby]

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 ...)

[Pedro]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
goChampsFirebird.Assign(Value);

[Andry]

Et si tu fais comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
private 
    goChampsFirebird : TStrings; 
    ... 
published 
    property ChampsFirebird : TStrings read GoChampsFirebird write SetChampsFirebird;

Ensuite dans ton Contructeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
goChampsFirebird := TStringList.Create;

Est ce que ça ne marche pas ?

A+

[Tcheby]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
private
    goChampsFirebird : TStrings;
    ...
published
    property ChampsFirebird : TStrings read GoChampsFirebird write SetChampsFirebird;

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
goChampsFirebird.Assign(Value);

Avec tout ca mon composant se comporte correctement.

Merci de votre aide.

[Pedro]

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