初学者的问题：集合的概念我能理解，但还没见过集合的应用，大侠们能给我一段 集合 实际应用的例程吗？ (50分)

拾

拾荒者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #1

初学者的问题：集合的概念我能理解，但还没见过集合的应用，大侠们能给我一段
集合 实际应用的例程吗？

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #2

放一个edit，在其KeyPress写如下代码，看一下效果。

procedure TForm1.Edit1KeyPress(Sender: TObject
var Key: Char);
begin
if not (key in['0'..'9']) and (key <>#8) then key:=#0;
end;

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #3

Type
Month = ( Jan , Feb , Mar , Apr , May , Jun , Jul , Aug , Sep , Oct , Nov , Dec );
这是一个月分的定义类型

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

to 无疯无禄:
这是枚举类型。[]

 

拾

拾荒者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

TO zw84611：
谢谢，集合 我知它存在肯定有它道理，只是一直都不知如何用，现在明白了，而且这个例
还解决了我一个 如何限制 EDIT 只能输入数字这个问题。 太感谢了。