pascal编程语言中 声明 record 类型中的 case 用法,多谢
pascal编程语言中 声明 record 类型中的 case 用法,多谢
日期:2013-06-14 20:31:17 人气:1
type BirthOrAge=(BirthFlag, AgeFlag);
PersonType=record
id:
string[18];
name: string[50];
gender: (male, female);
case flag:
BirthOrAge of
BirthFlag: (birthday: longint);
AgeFlag: (age:
0..150);
end;
// birthday