program testnums;<br>//{$APPTYPE CONSOLE}<br><br>uses<br>  Classes, SysUtils; <br>type<br>   stType = (stLite := -100, stDb, stBothLite, stBothDb); //settings location Type<br>   stTypes = Array [stType] of integer;<br>var<br>
 d : stType;<br> s : string;<br> i : integer;<br>begin<br> writeln('');<br> for i := Ord(low(stType)) to Ord(high(stType)) do<br> begin<br>  d := stTypes[i - Ord(low(stType))];<br>   writestr(s,d);<br>   writeln(d + ' ' + IntToStr(Integer(i)));<br>
 end;<br> readln;<br><br>end.<br clear="all"><br>-- <br>Frank Church<br><br>=======================<br><a href="http://devblog.brahmancreations.com">http://devblog.brahmancreations.com</a><br>