Discussion :

[jbat]

Bonjour,

J'aimerai savoir comment utiliser la methode "assign" pour copier une liste hétérogène...

Je m'explique.
J'ai une class mère (TFiltre) avec plusieurs classes filles et petites-filles (et ainsi de suite) (TFiltreNumerique, TFiltreTextuel, TFiltreTextuelBidule, ...)

J'ai une TStringList qui héberge indifféremment des instances de ces classes dérivées ou éventuellement des instances de la classe mère.

Je ne parviens pas à utiliser assign (je dois mal comprendre son fonctionnement) pour creer une seconde liste qui ai les même valeurs que la première, mais avec pourtant des objets différents (cad si je change la proprieté d'un des objets recrée en copiant, que ça ne change pas la même proprieté de l'objet symétrique ayant été copié)

Avant :

• L1-o1-o2-o3-o4
  L2-

Ce que je veux :

• L1-o1-o2-o3-o4
  L2-o1'-o2'-o3'-o4'

Ce que je ne veux pas :

• L1-o1-o2-o3-o4
  L2-o1-o2-o3-o4

Quelqu'un peut-il m'expliquer ça ?

Merci d'avance !

[cmen76]

assign ne permettra pas cela ; écrire une méthode "cloner" qui recrée des instances et copie le contenu.

[jbat]

Cela signifie-t-il que ma méthode "cloner" devra connaitre toutes les classes filles et faire quelque chose du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
for iCpt := 0 to Source.count -1 do begin
    if Source.object[iCpt].ClassName='FiltreNumerique' then begin
        Creer un objet de class "FiltreNumerique"
        Copier dedans les proprietés de sources
        L'insérer dans ma liste clone
        end;
    if Source.Object[iCpt].ClassName = 'Une Autre classe fille' then begin
        Recommencer avec un autre cast !!!
        end;
    Recommencer avec toutes les classes descendantes !!!
    end;

[jbat]

Existe-t-il une façon de faire un peu plus concise ?

Voici comment de fait actuellement... je suis sur que l'on peut mieux faire...

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
28
29
30
31
32
33
34
35
36
37
38
39
40
 
procedure TListeDeFiltre.Assign(Source: TPersistent);
    var
        iCpt : integer ;
        Filtre : TFiltre ;
        sNomClass : String ;
    begin
        inherited;
        for iCpt := 0 to slListeDeFiltre.Count -1 do begin
            slListeDeFiltre.Objects[iCPt].Free;
            end;
        slListeDeFiltre.Clear ;
        for iCpt := 0 to TListeDeFiltre(Source).slListeDeFiltre.Count -1 do begin
            sNomClass := TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt].ClassName ;
            if (sNomClass = 'TListeDeFiltre' ) then begin
                Filtre := TListeDeFiltre.Create();
                TListeDeFiltre(Filtre).Assign(TPersistent(TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt]));
                end;
            if (sNomClass = 'TListeDeFiltreEt' ) then begin
                Filtre := TListeDeFiltreEt.Create();
                TListeDeFiltreEt(Filtre).Assign(TPersistent(TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt]));
                end;
            if (sNomClass = 'TListeDeFiltreOu' ) then begin
                Filtre := TListeDeFiltreOu.Create();
                TListeDeFiltreOu(Filtre).Assign(TPersistent(TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt]));
                end;
            if (sNomClass = 'TFiltre' ) then begin
                Filtre := TFiltre.Create();
                TFiltre(Filtre).Assign(TPersistent(TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt]));
                end;
            if (sNomClass = 'TFiltreTextuel' ) then begin
                Filtre := TFiltreTextuel.Create();
                TFiltreTextuel(Filtre).Assign(TPersistent(TListeDeFiltre(Source).slListeDeFiltre.Objects[iCpt]));
                end;
            { LE PROBLEME, C'EST QUE J'EN AI ENCORE BCP D'AUTRES CLASSES DERIVEES !!!  }
            { BIEN SUR, JE NE LES METS PAS TOUTES ICI }
            { AUTRE INCONVENIENT, JE DOIS FAIRE UN "USE" DE TOUTES MES UNITEES...  }
            slListeDeFiltre.AddObject(Filtre.sExplication,TObject(Filtre));
            end;
        end;

[gord's]

vague idée : tu pourrais dans tes classe déclarer une fonction "clone", qui crée un objet identique à celui qui reçoit cette méthode, et le retourne.
déclares là en virtual abstract dans ta classe ancetre, chqrge aux descendantes de l'implémenter.

dans ta copie de liste, tu n'as qu'a caster l'objet à dupliquer dans la classe ancetre, et tu n'as pas besoin de tenir compte de la classe effective, ni d'inclure les units correspondantes.

Voila, c'est réfléchi un peu vite, il faut surement approfondir.

[jbat]

Mais c'est bien sur !

Quelle bonne idée...

En créeant une fonction dans toutes mes classes dérivées et/ou dans la classe ancètre comme suit :

Code :

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

1
2
3
4
5
function TUneClassFille.Cloner(): TClassAncetre;
    begin
        result := TUneClassFille.Create();
        TUneClassFille(result).Assign(self);
        end;

Ensuite, pour dupliquer ma liste hétérogène, je n'ai plus qu'à implémenter la fonction suivante :

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
procedure TListeDeFiltre.Assign(Source: TPersistent);
    var
        iCpt : integer ;
        Filtre : TFiltre ;
    begin
        inherited;
        for iCpt := 0 to slListeDeFiltre.Count -1 do begin
            slListeDeFiltre.Objects[iCPt].Free;
            end;
        slListeDeFiltre.Clear ;
        for iCpt := 0 to TListeDeFiltre(Source).slListeDeFiltre.Count -1 do begin
            Filtre := TFiltre(TListeDeFiltre(Source).slListeDeFiltre.objects[iCpt]).Cloner();
            slListeDeFiltre.AddObject(TFiltre(Filtre).sExplication,Filtre);
            end;
        end;

Et le tour est joué !

Merci gord's !

[sjrd]

Oui, c'est une façon propre et bien faite . Mais, si tu aimes les astuces les plus profondes du Pascal Objet, essaie ça.

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
procedure TListeDeFiltre.Assign(Source : TPersistent);
var I : integer;
    slSource : TStrings;
    Filtre : TFiltre;
    TFiltreClass : class of TFiltre;
begin
  inherited;
  for I := 0 to Count-1 do slListeDeFiltre.Objects[I].Free;
  slListeDeFiltre.Clear;
  slSource := TListeDeFiltre(Source).slListeDeFiltre;
  for I := 0 to slSource.Count-1 do
  begin
    Filtre := TFiltreClass(slSource.Objects[I].ClassType).Create;
      // Crée un descendant de TFiltre de même classe que la source
    Filtre.Assign(TFiltre(slSource.Objects[I]));
      // Assign depuis la source
    AddObject(slSource[I], Filtre);
      // Ajout à la liste
  end;
end;

Pour que ce code fonctionne, tu dois déclarer le constructeur (Create) de ta classe TFiltre en virtual et celui de tous ces descendants en override. Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
TFiltre = class(TPersistent)
  ...
public
  constructor Create; virtual;
  ...
end;
 
TDescendantDeTFiltre = class(TFiltre)
  ...
public
  constructor Create; override;
  ...
end;

Si tu comprends pas le principe, demande