testsubrangetype.out

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

unit TestSubrangeType;

interface

const
  NumberOfRegisters = 10;
  NumberOfPowerFailureChannels = 1;

type
  TMyChannels = 1..NumberOfRegisters + NumberOfPowerFailureChannels;
  TMyRegistersPowerFail1 = 1..NumberOfRegisters + NumberOfRegisters +
    NumberOfPowerFailureChannels;

//TMyRegistersPowerFail = NumberOfRegisters + 1 .. NumberOfRegisters + NumberOfPowerFailureChannels;

implementation

end.