Discussion :

[jejedelbarro]

Je souhaite utiliser un TStrings en propriété d'une classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type 
 TFSP = class
  private
    FDestinataires   : TStrings;
    constructor Create;
    procedure Set_Destinataires(const Value: TStrings);
  public
 
  property Destinataires : TStrings read FDestinataires write Set_Destinataires;
 published
 
 
end;

implémentation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
constructor TFSP.create;
begin
  FDestinataires := TStringList.create;
end;
 
 
procedure TFSP.Set_Destinataires(const Value: TStrings);
begin
  FDestinataires.Assign(Value);
end;

Jsuque la tous va bien. Le code passe la compilation. Mon probleme arrive quand je veux ajouter un element à ma liste :

Code :

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

1
2
3
4
5
 
...
MaFSP := TFSP.create;  
MaFSP.Destinataires.add('salut');  //genere une erreur !!!!!!!!!!
...

Il y à quelquechose que je fait mal ??????

[ShaiLeTroll]

le constructeur en private ... hum, passe le en public pour voir ...

[jejedelbarro]

Pardon !! il est en public ... J'ai recopié ma classe en enlevant tous le superflux, et je me suis trompé !!

[jejedelbarro]

Tu aurais une autre piste ?

[Cl@udius]

J'ai recopié ma classe en enlevant tous le superflux

L'autre piste est surement dans le "superflu". Car le code que tu présentes ne pose pas de problème.

@+ Claudius

[jejedelbarro]

Au temps pour moi, j'ai fait une petite boulette. Désolé !! Merci pour votre contribution !!