littletest13.out

格式化源码的最新板

unit littletest13;

interface

implementation

type
  pinteger = ^integer;

procedure foo;
var
  li: integer;
  lp: pointer;
begin
  li := 3;
  lp := @li;
  pinteger(lp)^ := 4;
end;

end.