[210427] Pointer

delphi

var
p1 : Pinteger; // :=^integer
pp : pointer; // 어떤 형태로든 호환되는 Pointer
a : integer;

begin
p1 := @a; // integer 변수 a의 주소를 p1에 저장
pp := pchar(p1) + 1; // pp는 a의 +1 byte 주소를 가짐
pp := pointer(pchar(p1) + 1 );
p1 := pointer(pchar(p1) + 1 );
writeln(p1^);