program testnums;
//{$APPTYPE CONSOLE}
uses
Classes, SysUtils;
type
stType = (stLite := -100, stDb, stBothLite, stBothDb); //settings
location Type
stTypes = Array [stType] of integer;
var
d : stType;
s : string;
i : integer;
begin
writeln('');
for i := Ord(low(stType)) to Ord(high(stType)) do
begin
d := stTypes[i - Ord(low(stType))];
writestr(s,d);
writeln(d + ' ' + IntToStr(Integer(i)));
end;
readln;
end.
--
Frank Church
=======================
http://devblog.brahmancreations.com
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
