Re: [Lazarus] Why doesn't this work?

[Erwin van den Bosch]

Op 29-11-2012 1:13, Maxim Ganetsky schreef:
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.

I should have turned range checking on! Then I saved a few hours 
debugging :-(

Thanks for your answer.

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus