Hallo Ivanko,
Du schriebst am Mon, 18 Nov 2013 21:16:03 +0500:
> Also CASE doesn't accept enumerated type. Though there's an workaround
> - typecast to integer on CASEd variable and all matches. But it's
> so-o-o ugly.
What's _that_?
PROGRAM enumcase;
TYPE
Test = (case1, case2, case3, case4);
VAR
Tester: Test;
BEGIN
FOR Tester:= case1 TO case4 DO
CASE Tester OF
case1: WriteLn ('Case 1');
case2: WriteLn ('Case 2');
case3: WriteLn ('Case 3');
case4: WriteLn ('Case 4');
END;
END.
--
--
(Weitergabe von Adressdaten, Telefonnummern u.ä. ohne Zustimmung
nicht gestattet, ebenso Zusendung von Werbung oder ähnlichem)
-----------------------------------------------------------
Mit freundlichen Grüßen, S. Schicktanz
-----------------------------------------------------------
------------------------------------------------------------------------------
Shape the Mobile Experience: Free Subscription
Software experts and developers: Be at the forefront of tech innovation.
Intel(R) Software Adrenaline delivers strategic insight and game-changing
conversations that shape the rapidly evolving mobile landscape. Sign up now.
http://pubads.g.doubleclick.net/gampad/clk?id=63431311&iu=/4140/ostg.clktrk
_______________________________________________
mseide-msegui-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
