delphi record2

Delphi record可以通过适用枚举定义取值范围。

record的字段，有的时候，可取的数值、数据是固定的。这时候，我们假如结合适用
枚举就很方便了 。

举例子：

var
  dateRec: record

    year: integer;
    month:(mJanuary,mFebruary,mMarch,mApril,mMay,mJune,mJuly,mAugust,mSeptember,mOctober,mNovember,mDecember);
    day:1..31;
end;

begin

  dateRec.month := mJuly;
  dateRec.day := 22;

end. 明升  在线进行150多种小游戏，http://www.heydayglass.com