🚀 go-pugleaf

I got your answer

a set decl only takes 8 bit values.
Thus

const
    a = 10
    b = 1000
var
    c: integer;


if   c in [a..b] then
ebgin
end;


whill be interpreted as


if c in [a and 8 .. b and 8]


whic will go down to

if c in  [10.. 232] then
begin

end;


I think you should use


case ... of


end


rather

regards
Brendan Bosman
















"Stephen Froude" <sfroude@teleplan-uk.c0m> wrote in message
news:3dde25a1$1@newsgroups.borland.com...
>
> This is strange.  If I run the following code, the for loop breaks on 233.
Why does this happen???  I'm using Delphi 6 Ent
>
> procedure TForm1.Button1Click(Sender: TObject);
> const
>   STATUS_NEW: Integer = 100;
>   STATUS_CANCELLED: Integer = 1000;
> var
>   iLoop, iStatus: Integer;
> begin
>   for iLoop:= STATUS_NEW to STATUS_CANCELLED do
>   begin
>     iStatus := iLoop;
>     if not (iStatus in [STATUS_NEW..STATUS_CANCELLED]) then
>     begin
>       ShowMessage('Failed on ' + IntToStr(iStatus));
>       Break;
>     end;
>   end;
> end;