盒子论坛 v2.1

使用的版本是D7 开启了范围检查，I/O检查，溢出检查等

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  UpperCase = 'A'..'Z';

  Letters = set of UpperCase;

var
  Letters1, Letters2, Letters3: Letters;
  num: Integer;

begin
  Letters1 := ['a', '1'];//为何能运行呢? 限制范围是'A'到''Z'啊
  Letters2 := ['2', 'c'];//为何能运行呢? 限制范围是'A'到''Z'啊
  Letters3 := ['d', 'Z'];//为何能运行呢? 限制范围是'A'到''Z'啊

  Readln;
end.
----------------------------------------------
-

作者：

hardnut (麦轲数据管家)	★☆☆☆☆	-
	普通会员

2018/4/21 10:49:34

1楼：

10.2.3下也能运行, 原因不理解
----------------------------------------------
UniKeeper V10.40 -- 您最贴心的个人数据管理助手

作者：

aket (aket)	★☆☆☆☆	-
	盒子活跃会员

2018/4/21 12:11:24

2楼：

TCharSet = set of Char;

Letters1, Letters2, Letters3: TCharSet;
Letters1 := ['A'..'Z'];

这样用不就行了
----------------------------------------------
-

信息

登陆以后才能回复