[Delphi] Records auf Gleichheit prüfen

[Whiz-zarD]

Loesungsansatz 1:

function is_equal(a,b:Record): Boolean;
begin
is_equal := true;
is_equal := is_equal or ( a.x = b.x );
is_equal := is_equal or ( a.y = b.y );
is_equal := is_equal or ( a.z = b.z );
..
end;

...

Genau das wollte ich eigentlich verhindern.
Ich wollte es ganz gerne unabhängig von der Struktur des Records lösen.
So muss ich ja jedes Mal, wenn sich die Struktur des Records ändert, auch die Funktion ändern.

Dass mit den Objekten muss ich mir mal genauer anschauen, da ich noch nie mit Objekten gearbeitet habe und die Records leider vorgegeben worden sind (ist eine Aufgabe für die Schule).