testsubrangetype.out

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

unit testsubrangetype;

interface

const
  numberofregisters = 10;
  numberofpowerfailurechannels = 1;

type
  tmychannels = 1..numberofregisters + numberofpowerfailurechannels;
  tmyregisterspowerfail1 = 1..numberofregisters + numberofregisters +
    numberofpowerfailurechannels;

implementation

end.