为什么要这样定义类型？

Question

Word == unsigned long(32位无符号整型，最重要的是：无符号)

Answer 1

一定是使用了DecodeDate等函数的原因。
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Answer 2

是为了将来数据长度扩展的问题兼容。
因为象Word，Short之类的数据，它们的长度在将来可能是不会变的。
而象Integer这样的类型，现在是32位的，到将来就会变成64为的。如果你使用Integer，那么很可能在将来64位的程序中无法使用那些变量作为参数传递给现在编写好的过程。

Answer 3

To: windindance(风舞轻扬)
真的是用了，DecodeDate，但为什么用了它就要定义为Word类型呢？

Answer 4

Word:16位无符号整数吧！还有其他的吗？

Answer 5

if this ...
else ...

Answer 6

因为decodedate函数定义的类型是var word类型
所以你只能使用WORD类型的参数。