삭제를 위한 암호를 넣어 주세요

var
  K1, K2: Integer;
  ba: TByteArray;
begin
  K1 := $12345678;
  K2 := 0;
  PInteger(@ba)^ := K1;
  K2 := PInteger(@ba)^;
end;
 
2019-01-15 오후 6:58:54

삭제를 위한 암호를 넣어 주세요

델파이에서 TByteArray는 다이나믹 어레이가 아니고
스태틱 어레이라서 위와 같은 포인터 캐스트 연산이 가능. ㅋㅋ 
2019-01-15 오후 7:07:47

삭제를 위한 암호를 넣어 주세요

답변 감사드립니다.
안드로이드에서도 잘 작동하네요. 
2019-01-16 오후 9:19:31