littletest58.out

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

unit littletest58;

interface

type
  tdummy = record
    case integer of
      0: (erx: longword;
        word: record
          filler: word;
          case integer of
            0: (rx: word;
            byte: record
              rh: byte;
              rl: byte;
            end;);
        end;);
  end;

  tsomeobject = class(TObject)
  private
    fdummy: array[0..8] of tdummy;
  public
    property drxummy: tdummy Read fdummy[0] Write fdummy[0];
    property e: longword Read fdummy[0].erx Write fdummy[0].erx;
  end;

implementation

end.