[Lazarus] Why doesn't this work?

Maxim Ganetsky ganmax at narod.ru
Thu Nov 29 01:13:45 CET 2012


29.11.2012 2:15, Erwin van den Bosch пишет:
> procedure TForm1.Button1Click(Sender: TObject);
> var
>    iLastError: integer;
> begin
>    iLastError:=10053;
>    if iLastError in [10053, 10054] then Label1.Caption:='Yes, it works!'
>                                    else Label1.Caption:='No, it doesn''t
> work!';
>    // Output : No, it doesn''t work!
> end;

This should generate range check errors, because AFAIK sets are limited 
to byte values.

> procedure TForm1.Button2Click(Sender: TObject);
> begin
>    iLastError:=53;
>    if iLastError in [53, 54] then Label1.Caption:='Yes, it works!'
>                              else Label1.Caption:='No, it doesn''t work!';
>    // Output : Yes, it works!
> end;
>
> Is there A compiler directive for testing on big nummers?

No.

> (fpc:2.6.1 Lazarus: 1.0.3 i386 on Windows 7 x64)
>

-- 
Best regards,
  Maxim Ganetsky                  mailto:ganmax at narod.ru




More information about the Lazarus mailing list