testpointers.out

来自「格式化源码的最新板」· OUT 代码 · 共 36 行

unit testpointers;

interface

type
  tfred = record
    fi1:      integer;
    fc2:      currency;
    ganzfeld: string;
  end;
  ptfred  = ^tfred;
  pptfred = ^ptfred;

procedure stuff;

implementation

procedure stuff;
var
  f:   tfred;
  pf:  ptfred;
  ppf: pptfred;
  li:  integer;
begin
  pf  := @f;
  ppf := @pf;
  pf  := ppf^;
  f   := pf^;
  f   := ppf^^;
  pf  := @f;
  ppf := @pf;
  li  := 3;
end;

end.