Record-Bereich in Anderen kopieren

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