Discussion :

[od.dev]

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.

Je fais donc :

Code :

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

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.

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.

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

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

Merci d'avance.

[Cl@udius]

Salut

Assigne la valeur à Toto par copie en utilisant Assign:

Code :

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

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

[od.dev]

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 :

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

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

[ShaiLeTroll]

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

[od.dev]

Non mais j'y crois pas

Je suis vraiment un âne

Ca marche mieux comme ça.

Merci à tous, je vais pouvoir continuer.

[Dr.Who]

Code :

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

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;