集合类型在使用过程中遇到的问题？

[bubble]

我的程序代码如下：
type
day=set of '0'..'9';

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
daysearch:day;
begin
if not (key in daysearch) then key:=#0;
end;

为什么当程序运行时，我在eidt框中只能输入 3 其它的均无法输入，请各位仁兄帮忙看看到底错在什么地方。谢谢

[wangxjlaohu]

建议你讲代码改为
if not (key in ['0'..'9', #8]) then key:=#0;

[bubble]

to　chechy(chechy):
难道还要对daysearch进行初始化吗？我在前面不是定义了集合类型吗？
要对daysearch进行初始化，该怎样做？

[chechy]

你只是定义了类型，类型的东西没有义务给你初始化。比如你定义了一个Int，你认为它会给你初始化成0吗？在类里面可以，但是在函数里面，那个Int就是垃圾。
记住，类型和值是两码事。类型是定义了数据的一个范围和规范，而值才是具体的东西。
具体赋值是
daysearch := ['0'..'9'];

[bubble]

to　wangxjlaohu(王老虎):
我的代码错在何处呢？

[chechy]

daysearch没有被初始化，里面是内存垃圾。
难道编译器没有产生警告吗？