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