Compiler Direktive OVERFLOWCHECKS

[himitsu]

also bei mir funktioniert es korrekt und er steigt bei inc(b2); aus

sowohl mit deinem Code,
also auch mit diesem, welcher nicht gleich das Programm beendet und 'ne Fehlermeldung ausgibt

Delphi-Quellcode:

program Project1;

{$apptype console}

uses sysutils;

var b1,b2: byte;

begin
  try
    b1 := 255;
    b2 := 255;
    {$OVERFLOWCHECKS OFF}
    Inc(b1);
    {$OVERFLOWCHECKS ON}
    WriteLn(b1);
    Inc(b2);
    {$OVERFLOWCHECKS OFF}
    WriteLn(b2);
  finally
    ReadLn;
  end;
end.