[fpc-pascal] Re: What is wrong with this enum and array related code

Frank Church vfclists at gmail.com
Sun Sep 12 13:58:49 CEST 2010


I need to elaborate more on this code

On this line

d :=3D stTypes[i - Ord(low(stType))];

since stTypes is an array, I expect stTypes[n], with n being 1 to 4,  to
retrieve an array value and as 'i - Ord(low(stType)) evaluates to integer it
should compile but it generates an error.

What would be the correct way?

On 12 September 2010 12:51, Frank Church <vfclists at gmail.com> wrote:

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



-- =

Frank Church

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
http://devblog.brahmancreations.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.freepascal.org/lists/fpc-pascal/attachments/20100912/79c4=
2c8f/attachment.htm


More information about the fpc-pascal mailing list