Smart pascal source code


  Type
    TEnum = Flags(f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13,
      f14, f15, f16, f17, f18, f19, f20, f21, f22, f23, f24, f25, f26, f27, f28,
      f29, f30, f31, f32);

  WriteLn(TEnum.f32); // 4294967296

  /// TEnum enumeration
  ///  [line: 40, column: 5, file: uMain]
  var TEnum = { 1:"f0", 2:"f1", 4:"f2", 8:"f3", 16:"f4", 32:"f5", 64:"f6", 128:"f7", 256:"f8", 512:"f9", 1024:"f10", 2048:"f11", 4096:"f12", 8192:"f13", 16384:"f14", 32768:"f15", 65536:"f16", 131072:"f17", 262144:"f18", 524288:"f19", 1048576:"f20", 2097152:"f21", 4194304:"f22", 8388608:"f23", 16777216:"f24", 33554432:"f25", 67108864:"f26", 134217728:"f27", 268435456:"f28", 536870912:"f29", 1073741824:"f30", 2147483648:"f31", 4294967296:"f32" };
  WriteLn(4294967296);