Discussion :

[Vincent Grillot]

Bonjour,


Je veux utiliser une classe générique pour effectuer un traitement, on lui passera en paramètre de généricité une classe de chargement de fichier (class TCustomLoader).
Cette classe a un constructeur avec un paramètre (le nom du fichier).

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

TCustomLoader = class(TObject)
public
  constructor Create(AParam: string); virtual;
end;

TWorkerClass< TCustomLoader , constructor> = class(TObject)
public
  procedure Run;
end;


procedure TWorkerClass<T>.Run;
var
  o : <T>;
begin
  o := T.Create('test'); // ne trouve pas le paramètre
  o := T.Create; // compilable
end;

Vu que j'ai spécifié la classe de base pour mon type générique, pourquoi delphi ne veut encore qu'un constructeur de base ?

Ai-je loupé quelque chose ?

Merci pour vos idées,
Vincent.

[ShaiLeTroll]

Pourquoi un généric ?
Finalement, tu n'as qu'une classe TWorkerClass qui va utiliser une classe hérité de TCustomLoader, ce n'est que de l'héritage de base, à la limite, tu peux considérer ça comme une Pattern Factory !

Code :

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

TWorkerClass.Create(TCustomLoader.GetClass(FileType).Create(FileName));

TWorkerClass étant chargé de libérer le Loader passé en paramètre de son constructeur ...

Sinon, pour la contrainte constructor, cela ne s'écrirait pas comme ça ? ou est-ce que T est implicite ?

Code :

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

TWorkerClass<T: TCustomLoader, constructor> = class(TObject)

ou inversement, qualifié les méthodes correctement ...

Code :

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

procedure TWorkerClass<TCustomLoader>.Run;

[Vincent Grillot]

Salut,

En fait pour le coup je voulais jouer un peu avec les generics...
Et je suis finalement retourné pour la version avec l'héritage.

Mais ma question restait en l'air...

Effectivement j'ai mal écrit la définition de ma classe dans ma question, je l'ai retapé pour l'exemple sans le "<T:..."

Par contre je n'ai pas réussi à qualifier l'implémentation de la procedure Run

N'importe quoi différent de "procedure TWorkerClass<T>.Run;" échoue à la compilation. (diffère de la déclaration).


Merci vos les idées.