Discussion :

[stanislas]

Bonjour,

J'utilise Delphi 2009 et les generics en abondance. Mais je rencontre un problème 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
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 :

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

1
2
3
4
5
 
type
 
IPersistentObject<T> = interface;
IDAO<T : class, IPersistentObject<T>> = interface;

J'ai l'erreur :

Code :

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

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 :

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

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 ...

[Kaféine]

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 :

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
 
  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;

[stanislas]

En fait je n'ai pas mis tout le code pour alléger un peu mais IPersistentObject utilise la généricité :

Code :

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

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

[Kaféine]

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

Code :

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

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é

[Kaféine]

Salut,

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

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
 
  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 :

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

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;

[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 ...