littletest48.out

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

unit littletest48;

interface

type
  tfoo = record
    stuff:   PChar;
    counter: integer;
    Name:    string;
  end;

  tbar = record
    flag:  boolean;
    myfoo: tfoo;
    size:  integer;
  end;

  tfish = record
    counter: integer;
    myfoo:   tfoo;
    mybar:   tbar;
  end;

implementation

function findthefish(const pisoy: integer): tfish;
begin
  Result.counter    := 3;
  Result.mybar.size := (pisoy + 1);
  Result.mybar.myfoo.counter := (pisoy + 1);
  (Result.myfoo.stuff +pisoy)^ := #0;
end;

end.