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
2010/9/12 Frank Church vfcli...@gmail.com:
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;