Discussion :

[der§en]

Bonjour,

Petite question sur les THelper: Peux-ton enrichir un THelper par un nouveau qui hérite du précédent !

Je m'explique, dans System.SysUtils, on trouves pas mal de THelper, (exemple TWordHelper = record helper for Word), et j’aimerai l'enrichir.

Si je créer une unité contant cette définition, je perd l’accès au routines du THelp contenu dans SysUtils.

Existe-t-il un moyen d’enrichir les THelper sans perdre l’accès a l'existant ?

[Andnotor]

Je crains que non. Il n'y a pas de notion d'héritage dans les assistants.

[Paul TOTH]

non, c'est une limitation des Helpers, seul le plus "proche" du code est utilisable.

démonstration:

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
 
type
  TFormHelper1 = class helper for TForm
    procedure Test();
  end;
 
procedure TFormHelper1.Test();
begin
  ShowMessage('Toto');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Test();
end;
 
type
  TFormHelper2 = class helper for TForm
    procedure Test();
  end;
 
procedure TFormHelper2.Test();
begin
  ShowMessage('Tutu');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Test();
end;

pour Button1 c'est TFormHelper1 qui ajoute la fonction Test() à TForm
pour Button2 c'est TFormHelper2 qui est utilisé

et ceci ne compile pas

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
 
type
  TFormHelper1 = class helper for TForm
    procedure Test();
    procedure Help1();
  end;
 
procedure TFormHelper1.Test();
begin
  ShowMessage('Toto');
end;
 
procedure TFormHelper1.Help1();
begin
  ShowMessage('Help1');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Test();
  Help1(); // ok
end;
 
type
  TFormHelper2 = class helper for TForm
    procedure Test();
  end;
 
procedure TFormHelper2.Test();
begin
  ShowMessage('Tutu');
  Help1(); // pas ok
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Test();
  Help1(); // pas ok
end;

[ShaiLeTroll]

Malheureusement a part dupliquer le code pour que le dernier Assistant visible soit le tient sans perdre l'existant, il n'y a pas d'autre solution

J'écris des Assistants depuis D7, évidemment pas du tout la syntaxe d'aujourd'hui, c'était parfois plutôt un Proxy (instance) ou un pseudo-helper, un lot de class fonctions, oui exclusivement des méthodes de classes,

Depuis, j'ai des vrais helpers qui ne font qu'appeler un proxy ou un lot de fonctions pour faciliter l'écriture, j'évite d'en abuser comme je l'ai fait à un moment par FLEMME !

[der§en]

Merci de vos retours.

[Andnotor]

Je pense qu'on n'a pas été suffisamment précis dans nos réponses et une petite mise à jour s'impose.

Comme la question portait sur un word la réponse est non, il n'est pas possible d'enrichir un record helper.

Par contre un class helper peut l'être en spécifiant un assistant de classe ancêtre.

En reprenant l'exemple de Paul :

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
type
  TFormHelper1 = class helper for TForm
    procedure Test;
    procedure Help1;
  end;

procedure TFormHelper1.Test();
begin
  ShowMessage('Toto');
end;

procedure TFormHelper1.Help1();
begin
  ShowMessage('Help1');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test();
  Help1(); // ok
end;

type
  TFormHelper2 = class helper(TFormHelper1) for TForm
    procedure Test;
  end;

procedure TFormHelper2.Test();
begin
  ShowMessage('Tutu');
  Help1(); // ok pas ok
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Test();
  Help1(); // ok pas ok
end;

Mais ce n'est pas du vrai héritage. Même si ajouter virtual/override compile sans erreur, inherited n'est pas exécuté.

[SergioMaster]

Je pense qu'on n'a pas été suffisamment précis dans nos réponses et une petite mise à jour s'impose.

Ah, cela me rassure parce que je me demandais vraiment, n'ayant pas eu le temps de lire les sources, comment certains faisaient dans ce qui est nommé les Fluent quelque chose.
Exemple Fluent Creation de Frank Lauter enfin ce n'est peut être pas des helpers mais cela y ressemble
TFMXFluentCreator<TRectangle>.Contruct(R).Parent(LBI).Left.Margins(5,5,5,5).NoStroke.SolidFill.Width(12);