Record-Bereich in Anderen kopieren

[himitsu]

Moin ihrs,

ich kopiere mir so einen Bereich eines Records in einen anderen.
Die beiden Records sind untersciedlich, allerdings ist der zu kopierende Teil gleich aufgebaut.
Nur wollte ich aber nicht jede Variable einzeln zuweisen, also wird das in einem Stück rüberkopiert.

Delphi-Quellcode:

CopyMem4(
  @S^.Var01,
  @D.Var01,
  Integer(@D.Var12) - Integer(@D.Var01) + SizeOf(@D.Var12));

CopyMem4 halt die Bytes und ist so definiert:
Procedure CopyMem4(Source, Desc: Pointer; Len: LongInt); Jetzt wird aber die Größe jedesmal berechnet, also mit 6-9 binären/mathematischen Assemblerbefehlen, anstatt nur einem einfachem MOV.
Sozusagen MMD dereferenzieren, Offets (die ich eigentlich nur will) draufschlagen und alles zusammenrechnen.

In Assembler könnte ich ja direkt mit der Typendefinition und OFFSET arbeiten, aber in Pascal mag Delpphi sowas nicht

Delphi-Quellcode:

CopyMem4(
  @S^.Var01,
  @D.Var01,
  Offset TD.Var12 - Offset TD.Var01 + SizeOf(TD.Var12));

So würde es ja der Compiler theoretisch selbst berechnen und der Wert könnte dann ganz einfach per MOV geladen werden.


Klar könnte ich die "paar" Bytes auch selber errechnen und direkt eintragen, aber wenn ich dann mal was an den records verndere darf ich das jedesmal neu errechnen.
Und wie mir während dem Vervassen dieses Beitrags aufgefallen ist, hatte ich mich auch schon verrechnert (es macht sich bestimmt nicht so gut, wenn mehr verschoben wird, als da ist).
Außerem kommt soein Teil ja nocht nur einmal in dem Code vor ... also ich müßte alles mehrfach ändern -.-''



Oder hat jemand 'ne Idee, wie ich das sonst noch (vom Compiler) berechnen lassen könnte?