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:[email protected]
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
