Discussion :

[Sined69]

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 :

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

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 :

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

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.

[Lung]

Type
Toto = record
end

Var
Var1, Var2 : record

La déclaration devrait être :

Code :

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

Var1, Var2 : Toto;

[Sined69]

Oups, oui, pardon.

[ShaiLeTroll]

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.

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

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

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

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

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

[SergioMaster]

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

[Sined69]

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

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

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

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

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