Classe generics et forward déclaration

Version imprimable

Bonjour,

J'utilise Delphi 2009 et les generics en abondance. Mais je rencontre un problème avec ce code :
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 interface uses Generics.Collections, Classes; type TPersistentList<T : class, IPersistentObject<T>> = class(TObjectList<T>) private FAssociatedDAO : IDAO<T>; public constructor Create(AssociatedDAO : IDAO<T>); destructor Destroy; override; function GetById(Id : Integer) : T; procedure Update(ToUpdate : T); procedure Save; end; IPersistentObject<T : class> = interface (IInterface) function GetId : Integer; procedure SetId(Id : Integer); end; IDAO<T : class, IPersistentObject<T>> = interface(IInterface) function GetList() : TPersistentList<T>; end;
donc comme vous pouvez le remarquer, il y a dépendance circulaire entre IDAO<T : class, IPersistentObject<T>> qui renvoi un TPersistentList<T> et TPersistentList<T : class, IPersistentObject<T>> qui garde un référence vers IDAO<T>

Je suis donc obligé de déclarer des classes en forward déclaration en en-tête de la partie interface mais voila, je n'arrive pas à déclarer correctement avec les generics !!

Si je déclare :
Code:

1 2 3 4 5 type IPersistentObject<T> = interface; IDAO<T : class, IPersistentObject<T>> = interface;
J'ai l'erreur :
Code:

1 2 [DCC Erreur] BaseDAO.pas(41): E2037 La déclaration de 'IDAO<T>' diffère de la déclaration précédente
au niveau de la déclaration :
Code:

1 2 3 4 IDAO<T : class, IPersistentObject<T>> = interface(IInterface) function GetList() : TPersistentList<T>; end;
J'ai essayé de mettre en forward declaration : IDAO<T> = interface; IDAO<T : class> = interface;
Toujours le même message d'erreur !

Si quelqu'un à une idée ...

Salut,

juste une question, peut être bête...

pourquoi IPersistObject est générique sachant que y'a pas d'emploi du paramètre générique?

J'aurais écris un truc comme ça a priori (je précise que je maitrise pas les génériques)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
  IPersistentObject = interface [GUID]
    function GetId: Integer;
    procedure SetId(const Value: Integer);
    property Id: Integer read GetId write SetId;
  end;
 
  TPersistentList<T: class, IPersistentObject> = class;
 
  IDAO<T: class, IPersistentObject> = interface
    function GetList: TPersistentList<T>;
  end;
 
  TPersistentList<T: class, IPersistentObject> = class(TObjectList<T>)
  private
    FAssociatedDAO : IDAO<T>;
  public
    constructor Create(const AssociatedDAO : IDAO<T>);
    destructor Destroy; override;
    function GetById(Id: Integer): T;
    procedure Update(ToUpdate: T);
    procedure Save;
  end;

31/03/2010, 14h49
stanislas
En fait je n'ai pas mis tout le code pour alléger un peu mais IPersistentObject utilise la généricité :
Code:

1 2 3 4 5 6 7 IPersistentObject<T> = interface (IInterface) function GetId : Integer; procedure SetId(Id : Integer); function ToString : String; function Clone : T; end;
Mais c'est vrais que sinon ta solution compile ... sauf que je perd ma fonctionnalité de Clonnage sur mes objets :)

peut être que ta fonction Clone peut renvoyer un IPersistentObject ?
Code:

1 2 3 4 5 6 7 IPersistentObject = interface (IInterface) function GetId : Integer; procedure SetId(Id : Integer); function ToString : String; function Clone : IPersistentObject; end;
Mais bon, pour ton problème de départ, je sèche grave, désolé

Salut,

encore un compromis...bizarre quand même la declaration avancé qui marche pas 8O . syntaxe particulière ou bug?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
  IPersistentObject<T> = interface [GUID]
    function Clone: T;
  end;
 
  TPersistentList<T: class, IPersistentObject<T>> = class(TList<T>)
  private
    FAssociatedDAO: IInterface;
  public
    constructor Create(const AssociatedDAO: IInterface);
    function GetById(Id: Integer): T;
    procedure Update(ToUpdate: T);
    procedure Save;
  end;
 
  IDAO<T: class, IPersistentObject<T>> = interface [GUID]
    function GetList: TPersistentList<T>;
  end;

"AssociatedDAO" en IInterface. puis interrogation pour choper un IDAO

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  DAO: IDAO<T>;
  AList: TPersistentList<T>;
  AItem, AClone: T;
begin
  if Supports(FAssociatedDAO, IDAO<T>, DAO) then
  begin
    AList := DAO.GetList;
    for AItem in AList do
    begin
      AClone := AItem.Clone;
    end;
  end;

02/04/2010, 10h52
stanislas

Merci,

J'ai bien ta deuxième solution, même si ce n'est pas l'idéal c'est un bon compromis.

Il y a quand même des choses étranges quand on pousse un peu loin les generics ...