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.