xmldoc et helper

Bonjour

Sur Delphi XE7 je constate un potentiel problème entre les balises de documentation et les helper.
C'est dans mon cas sur d'anciens types de composant mais j'imagine que cela n'a rien à voir.

J'ai un composant TwwTable qui hérite de TTable.

Je crée un Helper sur TTable et j'y ajoute des balises de doc.

Code:

---

1 2 3 4 5 6

TTableHelper = class helper for TTable /// <summary> /// Édit la ligne si nécessaire, assigne la valeur au champ indiqué et Post la valeur /// </summary> procedure SetFieldValue(FldName: string; Valeur: Variant);

---

Puisque le composant TwwTable hérite de TTable, je pensais avoir pout TwwTable le même comportement que pour TTable, c'est à dire profiter de la doc dans l'info-bulle pendant le codage, mais aussi de l'auto-complétion pendant ce même codage.

Pour avoir l'équivalent j'ai dû faire le même helper avec le même code pour TwwTable. Quand même bien dommage tout ça ..

Alors, pour vous, c'est normal ou il y a une option qui pourrait m'éviter de doubler le code de cette façon ?

Salut

effectivement le helper ne s'applique que sur la class defini
Il lui est impossible d'ajouter des données et de modifier des methodes virtuelles
il ne change en rien la vmt (table des methodes ...)

La class de base n'a aucune connaissance de ce greffon
pour faire ce que tu voudrais il aurais fallu que cette methode soit predefini dans l'ancetre
ce qui ici n'est pas les cas

par contre je crois que l'on peut faire un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9

TTableHelper = class helper for TTable procedure Test; .... end; ...   TWTableHelper = class helper(TTableHelper) for TwTable end;

---

si ton premier helper a beaucoup de methode et que tu ne veux pas toutes les reecrire

Alors, ça compile mais je ne retrouve aucune fonction du helper sur TTable.
Je n'ai plus que celle que j'ai laissée dans helper du twwTable.

salut

apres verification cela ne fonctionne pas
on peux upgrader notre helper sur une meme class mais pas clonner de helper en helper

il te reste plus qu'a ecrire les helper pour chaque class

c'est juste du copier mais bon, c'est dommage qu'ils n'aient pas pensé à ça.

Il reste qu'une chose que je n'ai pas essayé pour au moins éviter de recopier tout le code, c'est de faire un cast pour appeler la fonction du parent . Mais si c'est dans le helper, est-ce que ça fonctionnera ? Je vais tenter le coup et je viendrai rendre compte ici.

ça au moins ça fonctionne.

Code:

---

1 2 3 4

function TwwTableHelper.ToCSV(var NomFichier: string; Entete: Boolean = False): Boolean; begin Result := TTable(Self).ToCSV(NomFichier, Entete); end;

---

ça évite au moins de recopier du code

salut


a priori oui
vu que tu appel le parent sur lequel porte le helper

Un helper est utilisable sur la classe spécifiée et les héritées. Ca n'aurait aucun intérêt sinon, autant surcharger la classe.
M'est avis qu'il manque juste l'unité du helper dans uses. Il faut bien que l'unité de la fiche sur laquelle est posé TwwTable sache que TTable a été enrichi.

On peut en définir plusieurs pour une même classe mais seul le dernier déclaré est utilisable (en fonction de l'ordre des uses par exemple). Mais un helper de classe peut dériver d'un autre helper de cette même classe (et ainsi de suite comme de l'héritage). Ceci n'est par contre pas possible sur un record où seul le dernier est utilisable.

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

type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;   THelper1 = class helper for TCustomForm procedure Proc1; end;   THelper2 = class helper(THelper1) for TCustomForm procedure Proc2; end;   THelper3 = class helper(THelper2) for TCustomForm procedure Proc3; end;   var Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.FormCreate(Sender: TObject); begin Proc1; Proc2; Proc3; end;

---

Par contre au niveau de la complétion, là effectivement il y a un petit bug puisque seul les méthodes du dernier déclaré sont visibles.

En fait, les helper sont dans un TDatamodule.
Et oui, si je déclare une fonction dans le helper le plus haut, je peux appeler cette fonction dans le dernier descendant.
Mais au codage, Delphi ne propose rien et on pourrait penser que la fonction n'existe pas.
A la fin, ça compile sans problème.
L'ennui est que je code ça pour quelqu'un d'autre et je préfère qu'il ait la complétion et la doc en info-bulle.
Je n'ai pas la toute dernière version de Delphi alors si c'est pareil dans Alexandria, quelqu'un pourrait peut-être remonter le problème.
Parce qu'un bug sur XE7, il n'en auront rien à faire :)

En attendant j'ai remonté la chaîne avec des inherited plutôt que des cast et ça fonctionne très bien.

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

TDatasetHelper = class helper for TDataset procedure ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); end;   TTableHelper = class helper(TDatasetHelper) for TTable procedure ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); end;   TwwTableHelper = class helper(TTableHelper) for TwwTable procedure ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); end;   procedure TDatasetHelper.ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); begin // le code qui va bien end;   procedure TTableHelper.ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); begin inherited ToCSV(NomFichier, FormatCSV); end;   procedure TwwTableHelper.ToCSV(NomFichier: string; var FormatCSV: TFormatCSV); begin inherited ToCSV(NomFichier, FormatCSV); end;

---