testdelphinetrecordforward.out

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

unit testdelphinetrecordforward;

interface

type
  trecord1 = record;
  trecord2 = record;
  trecord3 = record;

  trecord1 = record
    foo:  integer;
    bar:  string;
    fish: double;
    rec:  trecord2;
  end;

  trecord2 = record
    foo:  integer;
    bar:  string;
    fish: double;
    rec:  trecord3;
  end;
  trecord3 = record
  end;

implementation

end.