22 lines
646 B
ObjectPascal
22 lines
646 B
ObjectPascal
// Ïåðå÷èñëèìûé òèï
|
|
uses System;
|
|
|
|
type Months = (January,February,March,April,May,June,July,August,September,October,November,December);
|
|
|
|
begin
|
|
var t: &Type := typeof(Months);
|
|
var names: array of string := Enum.GetNames(t);
|
|
writeln('Öèêë ïî èìåíàì ïåðå÷èñëèìîãî òèïà');
|
|
foreach name: string in names do
|
|
write(name,' ');
|
|
writeln; writeln;
|
|
|
|
var v: &Array := Enum.GetValues(t);
|
|
var mm: array of Months := new Months[v.Length];
|
|
writeln('Öèêë ïî ìàññèâó âñåõ çíà÷åíèé ïåðå÷èñëèìîãî òèïà');
|
|
for var i:=0 to v.Length-1 do
|
|
mm[i] := Months(v.GetValue(i));
|
|
|
|
for var i:=0 to mm.Length-1 do
|
|
write(mm[i],' ');
|
|
end. |