代码大全

PrintErrorMsg(‘Internal Error 752 Invalid color.’)

end;{case}

Ada COLOR COUNTRY OUTPUT
0
0

11.6.1

Basic

' set up COLOR enumerated type

ETColorInvalid =0

ETColorRed =1

ETColorGreen =2

ETColorBlue =3

' set up COUNTRY enumerated type

ETCountryInvalid =0

ETCountryUS =1

ETCountryEngland =2

ETCountryFrance =3

ETCountryChina =4

ETCountryjapan =5

' set up ANSWER enumerated type

ETAnswerInvalid =0

ETAnswerYes =1

ETAnswerNo =2

ETAnsweMaybe =3

ET

ET

11.7