Überlauf bei Berechnung erkennen

[himitsu]

stimmt, in der Hilfe stand auch sowas, aber als ich angefangen die Überlauftests einzubauen kamen bei $Q keine Exceptions raus, aber dafür bei $R ... drum hatte ich es damals auf $R geändert.


nja, hast mich zum nochmaligen Testen gebracht und ich werd's morgen ändern (geh gleich schlafen)

mein Fehler war wohl, daß ich zuerst andere Fehler bekam und diese einfach übernahm

tja, wie gesagt, manchmal verstickt man sich einfach so tief, daß man es garnicht merkt ;(

Delphi-Quellcode:

var
  i: LongInt;
  W: LongWord;
begin

{$Q+}{$R-}
try
  i := $7fffffff;
  if i = 0 then ;
  Inc(i);
except
  Application.MessageBox('Inc Q+', '');
end;
if i = 0 then ;
{$Q-}{$R+}
try
  i := $7fffffff;
  if i = 0 then ;
  Inc(i);
except
  Application.MessageBox('Inc R+', '');
end;
if i = 0 then ;


W := $80000000;
{$Q+}{$R-}
try
  i := W;
except
  Application.MessageBox('=  Q+', '');
end;
if i = 0 then ;
{$Q-}{$R+}
try
  i := W;
except
  Application.MessageBox('=  R+', '');
end;
if i = 0 then ;

aber was mein Problem betrifft:
mir ist grad aufgefallen, daß ich ABS im Fall eines <>-Vergleiches garnicht so einfach anwenden kann (bezüglich der Ausnahme mit MinBigInt bzw. Low(TBitBigInt))

ich werd wohl doch mal 'nen Tag auslassen und mir dann das ganz Problem nochmals neu durch den Kopf gehn lassen.