Comparer des records

Je dois comparer 2 variables d'un même type record assez long (plus de 200 champs, certains étant eux-mêmes des record dont certains assez gros aussi).
Or si on a :

Code:

---

1 2 3 4 5 6

Type Toto = record end   Var Var1, Var2 : Toto

---

le test
If Var1=Var2 ne fonctionne pas.
J'ai essayé avec :

Code:

---

CompareMem (@Var1 , @Var2 , SizeOf(Toto )

---

Mais le type contient des réels, et cette comparaison échoue même si var1 et Var2 contiennent bien les mêmes données.
Je peux donc soit comparer 1 à 1 les centaines de champs du record et des sous-record, soit essayer de trouver un moyen de faire une itération sur lesdits champs et les comparer en fonction des types.

Ma question est donc : est-ce possible ?
Car j'ai eu beau chercher, je n'ai rien trouvé

Je ne peux évidemment pas modifier mon record ou le transformer en autre chose, étant donné que le programme a près de 30 ans et que ces structures viennent du Pascal et que la compatibilité avec les anciennes versions doit être maintenue.

Citation:

---

Envoyé par Sined69

Type
Toto = record
end

Var
Var1, Var2 : record

---

La déclaration devrait être :

Code:

---

Var1, Var2 : Toto;

---

Oups, oui, pardon.

Dommage de poursuivre un sujet existant car on ne saura jamais si votre question sera "résolue"

Le problème c'est les chaines, les tableaux, même si le contenu est identique, les pointeurs ne sont pas les mêmes, c'est souvent dupliqués en mémoire.

Il te faut faire une function CompareToto(const Var1, Var2: Toto): Boolean; qui fera la comparaison, soit à la main en écrivant tout le code de comparaison, soit en utilisant les RTTI.

à priori je partirais sur les RTTI pour obtenir la liste des membres du record et leur type et faire une comparaison adaptée à chaque membre.

Code:

---

1 2 3 4

function RTTICompare<T>(const A, B: T): Boolean; begin ... end;

---

voilà reste plus qu'à remplacer les "..." :D

personnellement je le ferais avec mon unité RTTI, mais c'est possible de le faire avec celle de Delphi.

un autre approche serait de sérialiser les records en JSON et de comparer les deux chaînes obtenues...par contre je ne sais pas trop avec quelle précision les réels sont encodés.

dans mon unité JSON c'est défini, dans la partie Delphi je ne sais pas trop comment c'est géré...mais ça doit pouvoir se faire aussi

Citation:

---

Envoyé par ShaiLeTroll

Dommage de poursuivre un sujet existant car on ne saura jamais si votre question sera "résolue"

---

Voilà qui est fait, seul le titre pourrait être à corriger (je n'ai fait que lire en diagonale)

@sidned69 j'ai ôté la partie nécromancie ;)

Citation:

---

Envoyé par Paul TOTH

à priori je partirais sur les RTTI pour obtenir la liste des membres du record et leur type et faire une comparaison adaptée à chaque membre.

Code:

---

1 2 3 4

function RTTICompare<T>(const A, B: T): Boolean; begin ... end;

---

voilà reste plus qu'à remplacer les "..." :D

personnellement je le ferais avec mon unité RTTI, mais c'est possible de le faire avec celle de Delphi.

un autre approche serait de sérialiser les records en JSON et de comparer les deux chaînes obtenues...par contre je ne sais pas trop avec quelle précision les réels sont encodés.

dans mon unité JSON c'est défini, dans la partie Delphi je ne sais pas trop comment c'est géré...mais ça doit pouvoir se faire aussi

---

Merci, je vais me pencher là-dessus