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:

Delphi-Quellcode:

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

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?

[Amateurprofi]

hallo himitsu

ich löse sowas meistens so

Delphi-Quellcode:

type
   TRecord0=Record
               abc:integer;
               def:word;
               ghi:int64;
             end;

   TRecord1=Record
               a:boolean;
               b:integer;
               case integer of
                  1  :  (abc:integer;
                         def:word;
                         ghi:int64);
                  2  :  (abcdefghi:TRecord0);
            end;


   TRecord2=Record
               a:boolean;
               b:integer;
               c:word;
               d:int64;
               case integer of
                  1  :  (abc:integer;
                         def:word;
                         ghi:int64);
                  2  :  (abcdefghi:TRecord0);
            end;

var
   a:TRecord1;
   b:TRecord2;

Procedure Hugo;
begin
   //.....
   a.abcdefghi:=b.abcdefghi;
   //.....
end;

[himitsu]

Ist leider nicht möglich und außerdem wollte ich den "öffentlichen" Record (den wo es rein soll) nich noch zusätzlich verunschönern.

Außerdem sind diese Variablen in der mitte (hätte ich vielleicht noch erwähnen sollen ._.), also da ist anderes Zeugs dahinter, womit man kein CASE verwenden kann ... jendefalls nicht in D4 bis D7, denn bei denen gibt's ja kein END für die CASE.
In D2006 könnte es anscheinend gehen, jedenfalls nach einem Beispielcode in der DP, hatte aber vergessen das heute zu testen, da es aber davor nicht geht (k.A. wie's in D05 aussieht ... wird morgen mit getestet) ist diese Variante eh nicht verwendbar ... 's wird ja nicht hübscher, wenn ich dann neben der Alten noch 'ne andere Variante mit im Code hätte (per Compilerdirektiven umschaltbar).