不在子界基类型范围之类的赋值竟然不会出错?

Question

郁闷了会
procedure TForm1.Button1Click(Sender: TObject);
type
Ao = 'a'..'g';
var
Ai:Char;
GG:Ao;
begin
Ai:='Z';
GG:=Ai;
showmessage(GG);
end;
end.
请教大家,这样写为什么不错呢?不和逻辑啊.子界变量不是不能接受子界基类型外的值吗?如今,一个大写的Z却能赋给他.编译可以通过,只是心中不解.不知道以后会不会对程序产生影响?

Answer 1

子类型变量，自动转换成它的基本数据类型了，这一般不会带来问题。这种情况还多，比如短整型变长整型，整型变double型，等等，编译器的意图是想保护数据的完整性，避免丢数据。你如果觉得不爽，是个坚持原则的人，不愿意变通的话，也可以打开编译器开关range check，这样编译也会通过，但运行时会报错：GG不接受'Z'。