Discussion :

[vingt-huit]

J'ai une petite curiosité à vous soumettre, en [DELPHI 2010]

Soit une classe TFoo.

Code :

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

1
2
3
4
5
6
 
TFoo = class  
  public
     constructor Create ; virtual ;
     procedure DoSomethingUsefull ;
end ;

Soit une classe TSubFoo dérivée de la précédente

Code :

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

1
2
3
4
5
 
TSubFoo = class(TFoo)
  public
     constructor Create ; override ;
end ;

Soit une classe générique, avec une contrainte de type, le type générique doit être issu de TFoo, bien évidemment :

Code :

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

1
2
3
4
5
6
7
 
TMyList<T:TFoo,constructor> = class
   public
      constructor Create ;
      procedure DoSomethingWithFoo(aT : T) ;
      function GetAFoo : T ;
end ;

Lorsque je compile le code comprenant ces trois classes, j'obtiens une erreur de compatibilité de type entre TFoo et TSubFoo.
Ou si vous préférez la contrainte de type semble ne pas fonctionner.
Par contre, si on enlève la contrainte de type, aucune difficulté, mais bien évidemment, dans ce cas, pourquoi s'ennuyer avec la contrainte de type dans la documentation de Delphi 2010 ?

Si vous avez une idée, cela pourrait m'aider. J'ai contourné dans mon projet en cours, mais c'est toujours désagréable, sans compter que çà m'a pris du temps ...

[Dr.Who]

aucuns problèmes avec ce code :

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
type
  TFoo = class
  public
    constructor Create; virtual;
    procedure DoSomething;
  end;
 
  TSubFoo = class(TFoo)
  public
    constructor Create; override;
  end;
 
  TMyList<T: TFoo, constructor> = class
  public
    constructor Create;
    procedure DoSomething(aFoo : T);
    function GetFoo: T;
  end;
 
  TFooList = TMyList<TFoo>;
  TSubFooList = TMyList<TSubFoo>;

reste à voir l'implementation complete qui peu poser probleme


attention "at" est un mots réservé.

[vingt-huit]

+1 à Dr Who, j'ai été un peu rapide là-dessus, sans doute par frustration.

Le message d'erreur exacte était à la compilation du code qui posait problème :
E2010: Types incompatibles : TOMChannel et TChannel (Delphi)

Alors que bien entendu c'était déclaré TChannel=class(TOMChannel).

Dans la pratique, j'ai contourné et simplifié, et obtenu le résultat recherché.