Hello Sieghard.
> Have a lot of fun!
With your code I get this:
$ /home/fred/weird/weirdtest
low: we_2, value: 2; high: we_decade, value: 20
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
we_2: 2Runtime error 107 at $0000000000401293
$0000000000401293
$000000000040104F
_______________________
Would you be happy with this:?
PROGRAM weirdtest;
TYPE weird = (we_2:= 2, we_5:= 5, we_next, we_more, we_decade:= 20);
const
weirdorder: Array[1..5] of weird=(we_2,we_5,we_next, we_more,
we_decade);
VAR we: weird; wn: integer;
BEGIN
WriteLn ('low: ', low (weird), ', value: ', ord (low (weird)),
'; high: ', high (weird), ', value: ', ord (high (weird)));
FOR wn:= ord (low (weird)) TO ord (high (weird)) DO Write (wn, ' ');
WriteLn;
we:=Low(weird);
for we in weirdorder
DO Write (we, ': ', ord (we));
WriteLn;
END.
_______________
Gives as result:
$ /home/fred/weird/weirdtest
low: we_2, value: 2; high: we_decade, value: 20
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
we_2: 2 we_5: 5 we_next: 6 we_more: 7 we_decade: 20
Fre;D
--
Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
