Développement de composants et TStrings

Bonjour à tous,

Bien que familiarisé avec le développement de composant, pour la 1ère fois j'ai besoin d'intégrer un TStrings à un composant, avec accès à un éditeur de liste de chaînes dans l'inspecteur d'objet.
Exactement comme la propriété Lines du TMemo.

:pc: Je fais donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

protected FToto: TStrings; procedure SetToto(Value: TStrings);   published property Toto: TStrings read FToto write SetToto;   implementation   procedure TComposant.SetToto(Value: TStrings); begin if FToto <> Value then FToto := Value; end;

---

Et D7 me fait une violation d'accès dans le rtl70.bpl. :ouin:

J'ai bien regardé l'implémentation du TMemo et essayé de faire quelque chose d'approchant, mais je n'ai pas réussi à me défaire d'une erreur abstraite. :fou:

Du coup même quand je "commente" les lignes ci-dessus, il continue de me fait la violation d'accès. :help:

Quelqu'un pourrait-il me permettre d'avancer ?

Merci d'avance.

Salut

Assigne la valeur à Toto par copie en utilisant Assign:

Code:

---

1 2 3 4 5

procedure TComposant.SetToto(const Value: TStrings); begin if Value.Text <> FToto.Text then FToto.Assign(Value); end;

---

Au cas où, tu as bien créé une instance de FToto dans le constructeur de la classe (avec libération dans le destructeur) ?

@+ Claudius

Autant pour moi,
j'avais bien essayé FToto.Assign(Value) puisque c'était implémenté comme cela dans le TMemo. Comme cela ne marchait pas, j'étais revenu à mon point de départ.
Oui, je créé l'instance de Toto dans le Create de la classe, mais je n'en gère pas la destruction. Peut-être le devrais-je ? En fait, je n'ai besoin que d'une seule instance de Toto pour fonctionner, je partais donc du principe que le nettoyage se ferait tout seul à la destruction de l'appli.
J'ai rajouté, au cas où, la déclaration constante de Toto.
Mon code est donc maintenant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

protected FToto: TStrings; procedure SetToto(const Value: TStrings);   published property Toto: TStrings read FToto write SetToto;   implementation   constructor TComposant.Create(AOwner: TComponent); begin inherited Create(AOwner);   FToto := TStrings.Create; end;   procedure TComposant.SetToto(const Value: TStrings); begin if Value.Text <> FToto.Text then FToto.Assign(Value); end;

---

Et quand j'essaie d'accéder à l'éditeur de liste de chaînes dans l'inspecteur d'objet, il me fait la fameuse "erreur abstraite". :cry:
Je me suis dit qu'il s'agissait peut-être d'un problème d'initialisation, puisque le Lines du TMemo est initialisé à "Memo1". Mais je n'ai pas trouvé où se faisait cette initialisation.

Tu ne peux pas instancier un TStrings, il faut utiliser une TStringList ou mieux faire ta propre classe TStrings héritée spécifique à ton objet, comme celles d'un TMemo ou d'une TListBox

Non mais j'y crois pas :marteau:

Je suis vraiment un âne :triste:

Ca marche mieux comme ça. :mrgreen:

Merci à tous, je vais pouvoir continuer. :ccool:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

type TComposant = class(TComponent) private fStrings : TStringsList; procedure SetToto(const Value: TStringsList); published property Toto: TStringsList read FToto write SetToto; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end;   implementation   constructor TComposant.Create(AOwner: TComponent); begin inherited;   FToto := TStringList.Create; end;   destructor TComposant.Destroy; begin FToto.Free;   inherited; end;   procedure TComposant.SetToto(const Value: TStringList); begin FToto.Assign(Value); end;

---