Discussion :

[Cpt Anderson]

Salut à tous,

je suis en train de faire un programme dans lequel je dois comparer les propriétés d'objets. Je m'explique :

J'ai une liste d'objet qui contient n instances du meme objet. Dans cet objet j'ai 10 propriétés ; ce qui m'interesse, c'est de comparer les 4 premières propriétés. Si dans deux instances, j'ai ces 4 propriétés identiques alors j’arrête le traitement.

Je pourrais faire des boucles for imbriqués, mais n'y a t-il pas moyen de faire mieux que cela ? Merci pour vos idées.

PS: je bosse avec la version xe3 de delphi.

[tourlourou]

Bonjour,
Quels sont les types de propriétés en question ?
Plutôt que des for, une récursion ?
Construire un arbre ?

[pprem]

Si tu utilises un TObjectList tu peux détourner la fonction de tri de son usage normal. Il suffit de lui passer un TComparer qui gère ta comparaison et dans le cas où il y a égalité tu sors avec une exception maison que tu interceptes autour de l'appel à sort.

[Paul TOTH]

Salut à tous,

je suis en train de faire un programme dans lequel je dois comparer les propriétés d'objets. Je m'explique :

J'ai une liste d'objet qui contient n instances du meme objet. Dans cet objet j'ai 10 propriétés ; ce qui m'interesse, c'est de comparer les 4 premières propriétés. Si dans deux instances, j'ai ces 4 propriétés identiques alors j’arrête le traitement.

Je pourrais faire des boucles for imbriqués, mais n'y a t-il pas moyen de faire mieux que cela ? Merci pour vos idées.

PS: je bosse avec la version xe3 de delphi.

je ne comprend pas bien la question...quel est le but recherché ? écrire une fonction générique CompareProperties(Obj1, Obj2, NbProps) ? Pouvoir faire évoluer la fonction ? ne pas écrire de code ?

à priori je partirais sur une méthode (ou un class helper au besoin)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  TMonObject = class
    ...
    function Match4(Obj: TMonObject): Boolean;
  end;
 
function TMonObject.Match4(Obj: TMonObject): Boolean;
begin
  Result := (Obj.Prop1 = Prop1) and (Obj.Prop2 = Prop2) and (Obj.Prop3 = Prop3) and (Obj.Prop4 = Prop4);
end;

on peut aussi imaginer utiliser les RTTI mais est-ce bien nécessaire ?

[Cpt Anderson]

Bonjour,
Quels sont les types de propriétés en question ?
Plutôt que des for, une récursion ?
Construire un arbre ?

je n'ai que des string. Un arbre oui, j'y ai pensé, un tableau...

[Cpt Anderson]

je ne comprend pas bien la question...quel est le but recherché ? écrire une fonction générique CompareProperties(Obj1, Obj2, NbProps) ? Pouvoir faire évoluer la fonction ? ne pas écrire de code ?

à priori je partirais sur une méthode (ou un class helper au besoin)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  TMonObject = class
    ...
    function Match4(Obj: TMonObject): Boolean;
  end;
 
function TMonObject.Match4(Obj: TMonObject): Boolean;
begin
  Result := (Obj.Prop1 = Prop1) and (Obj.Prop2 = Prop2) and (Obj.Prop3 = Prop3) and (Obj.Prop4 = Prop4);
end;

on peut aussi imaginer utiliser les RTTI mais est-ce bien nécessaire ?

Bonjour Paul,

désolé si je n'ai pas été clair...

Le but est de voir si dans mes n intenses d'objets, j'en ai deux qui ont les mêmes valeurs pour les 4 premières propriétés (qui sont toutes de type string).

Pas besoin forcement d'une fonction générique, ce type de cas, je ne le rencontrerai plus je pense.

[Paul TOTH]

et bien tu n'as pas d'autre solution que de faire une boucle...de la liste sur elle même ou vers une autre liste

sans avoir testé, quelque chose de cet ordre

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
 
  P := List.Length - 1;
  repeat
    N := P;
    for I := N - 1 downto 0 do
    begin
       if List[I].Match4(List[N]) then
       begin
         List.Delete(N); // supprimer le premier
         N := I; // utiliser le second pour les prochaines comparaisons
         Dec(P); // la liste a été réduite
       end;
    end;
    Dec(P); // au suivant 
   until P = 0; // on a tout testé

[Cpt Anderson]

Merci pour vos réponses, on va boucler...