Guest User

Untitled

a guest
Nov 23rd, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.26 KB | None | 0 0
  1. type TMyType = packed record
  2. Var_1: Byte;
  3. Var_2: Byte;
  4. Var_N: Byte;
  5. end;
  6.  
  7. Var aa: TMyType;
  8. vArr: TByte;
  9. begin
  10.  
  11. vArr := [1, 2, 3];
  12.  
  13. // Copy vArr content to "aa" like this
  14. aa := @vArr;
  15.  
  16. // aa.Var_1 = 1;
  17. // aa.Var_2 = 2;
  18. // aa.Var_N = 3;
Add Comment
Please, Sign In to add comment