Discussion :

[gside]

Bonjours à tous,

Avis aux spécialistes des types génériques, pour Delphi 2009 Win32

Plusieurs questions sur lesquelles j'ai passé quelques heures sans trouver de solution (types génériques: nouveau pour moi...)

1) Peut on créer une classe de base dérivée d'une classe générique fermée (comme ci dessous)
Ca semble possible en Delphi .NET (d'aprés tuto sur le site), mais erreur en Win32?
Exemple:

Code :

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

1
2
TVehicule<T> = class(TPersistent)
TCamion = class(TVehicule<TCamion>)

2) Comment utiliser des méthodes génériques en temps d'accesseur de propriété?
Exemple (qui ne fonctionne pas: identificateur GetData non déclaré...)

Code :

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

1
2
3
4
5
6
TCamion = class (TObject)
protected
   function GetData<T>: T;
published
   property Conducteur: TConducteur read GetData;
  // avec GetData<TConducteur> : GetData`1 n'est pas un champ ou un identificateur de méthode reconnu

(edit) Je me permet d'en rajouter une troisième...

3) Peut on transtyper en utilisant le type générique?
Exemple (retourne une erreur sur as... : opérateur non applicable à ce type d'opérande)
function TDSWrapper<T>.WrapGetItem(Index: integer): T;
begin
Result := (Self.GetItem(Index) as T);
end;
Si je 'force' le casting ( T(self.Getitem...) ) l'erreur devient: Transtypage incorrect.

Merci!
g

[Kaféine]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  TVehicule = class
  end;
 
  TCamion = class(TVehicule)
  end;
 
  TVoiture = class(TVehicule)
  end;
 
  TConvoit = class(TObjectList<TVehicule>)
  end;

tour de france:

Code :

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

1
2
3
4
5
6
7
8
 
var
  CaravaneTourFrance: TConvoit;
begin
  CaravaneTourFrance := TConvoit.Create;
  CaravaneTourFrance.Add(TCamion.Create);
  CaravaneTourFrance.Add(TVoiture.Create);
  CaravaneTourFrance.Free;

ex propriété generique:

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
 
  THomme = class
  end;
 
  TFemme = class
  end;
 
  TGroup<T: class> = class(TObjectList<T>)
  private
    function GetIndividu(Index: Integer): T;
  public
    property Individu[Index: Integer]: T read GetIndividu;
  end;
 
implementation
 
{ TGroup<T> }
 
function TGroup<T>.GetIndividu(Index: Integer): T;
begin
  Result := inherited Items[Index];
end;

en espérant t'avoir donné quelques pistes...

[gside]

Merci Kaféine,
en effet ca clarifie pas mal de choses, en particulier sur les propriétés génériques: plus simple à utiliser que ma méthode initiale
Je pense pouvoir trouver un équivalent au passage de type générique en paramètre d'une méthode de propriété, avec cette approche
g.