Discussion :

[Pedro]

Bonjour à tous

Voila, j'ai créé une propriété personnalisée qui est une liste de doublons. Je l'ai associée avec une boîte de dialogue pour l'édition en designtime. Jusqu'ici tout va bien.
Maintenant j'aimerais que les valeurs soient enregistrées dans le .dfm et là, tout se complique. Voici ce que j'ai fait:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
  TPedroGraphLineCollectionIem = class(TCollectionItem)
  published
    property PointList: TPedroIntegerCoupleList read FList write SetList
      stored GetStored;
 
...
procedure TPedroGraphLineCollectionIem.DefineProperties(Filer: TFiler);
begin
  inherited;
  //Spécification d'une nouvelle propriété:
  //'PointList' : le nom de la propriété
  //ReadListData: la procedure de lecture
  //WriteListData: la procedure d'écriture
  //FList.Count > 0 : Est-ce que la liste a des données
  Filer.DefineProperty('PointList', ReadListData, WriteListData,
    (FList.Count > 0));
end;
...
procedure TPedroGraphLineCollectionIem.ReadListData(Reader: TReader);
var
  Val1, Val2: Integer;
begin
  with Reader do
  begin
    //Début de lecture d'une liste
    ReadListBegin;
    //Tant que la liste n'est pas terminée
    while not EndOfList do
    begin
      //Lecture de la première valeur
      Val1 := ReadInteger;
      //Lecture de la seconde valeur
      Val2 := ReadInteger;
      //Ajout du doublon dans la liste
       FList.AddCouple(Val1, Val2);
    end;
    //Fin de lecture d'une liste
    ReadListEnd;
  end;
end;
...
procedure TPedroGraphLineCollectionIem.WriteListData(Writer: TWriter);
var
  I: Integer;
begin
  with Writer do
  begin
    //Début d'écriture d'une liste
    WriteListBegin;
    for I := 0 to Count - 1 do
    begin
      //Ecriture de la valeur 1
      WriteInteger(FList[I].Value1);
      //Ecriture de la valeur 2
      WriteInteger(FList[I].Value2);
    end;
    //Fin d'écriture d'une liste
    WriteListEnd;
  end;
end;

WriteListData fonctionne parfaitement et m'inscrit bien toutes les valeurs. En revanche, ReadListData plante systématiquement et m'indique qu'il n'arrive pas à lire la propriété.
Il est impossible de vérifier si FList est créé ou non. Ceci dit, je le crée dans le constructeur donc il devrait exister.
Si je commente entièrement ReadListData tout en laissant la procedure:

Code :

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

1
2
3
4
 
procedure TPedroGraphLineCollectionIem.ReadListData(Reader: TReader);
begin
end;

Ca fait la même chose. Par contre, si je supprime les lignes correspondant à cette liste dans le .dfm, ça marche mais du coup, il ne charge rien !
Pour info, TPedroGraphLineCollectionIem est de type TCollectionItem contenu dans un TOwnedCollection lui-même contenu dans mon composant hérité de TCustomControl.

J'ai loupé un truc ?

[Pedro]

C'est bon, j'ai trouvé.
Pour information, il y avait un problème du fait que la propriété que j'essayais d'écrire était en published. Les propriétés published sont théoriquement automatiquement écrites dans le .dfm.
Or, dans mon cas, il n'y avait rien. Donc j'ai défini cette propriété avec son Writer et son Reader. Il écrivait bien les données mais était incapable de les lire. D'où mon étonnement.
Pour régler le problème: j'ai passé stored de la propriété à false (pour que Delphi n'écrive rien) et défini une nouvelle InternalPointList avec le même reader et writer et ça marche.

[Paul TOTH]

bien vu, je ne trouvais pas ce qui clochait dans ton code, bravo et merci d'avoir donner la solution.

[Pedro]

bien vu, je ne trouvais pas ce qui clochait dans ton code, bravo et merci d'avoir donner la solution.

C'est la moindre des choses, le forum est là pour ça après tout

Pour être plus complet, voici ce que je pense qu'il se passait:

• La liste est de type inconnu selon Delphi (c'est une TList<TMachinChose> TMachinChose étant un record) et ne sait donc pas comment l'enregistrer.
• Lorsque j'enregistrais mes données, Delphi ne connaissant pas ce type, n'enregistrait pas les données. En revanche, comme je définissais plus loin une propriété du même nom, l'enregistrement se faisait avec mon WriteListData
• Au chargement, Delphi voyant la propriété published essaye de charger selon ses propres méthodes et évidemment plante puisqu'il ne comprend pas qu'il faut utiliser ReadListData.

C'est pour ça que le Writer marchait mais pas le Reader: il n'était même pas utilisé !
Donc, à première vue, les propriétés définies par DefineProperty se chargent APRES que Delphi ait tenté de charger les propriétés published.

Par contre, je pensais vraiment qu'il était possible de surcharger un reader/writer d'une propriété quelconque en published. Il faut croire que non