EIntOverflow :???:

← →
Бадян © (2002-06-05 11:47) [0]

Привет, многоуважаемые.

Простите, что на C.

void __fastcall TForm1::DigitSpeedButtonClick(TObject *Sender) { __int32 a=0xFFFFFF; try { a = a*0xFFFF; } catch (EIntOverflow &e) { MessageBox(NULL, "IntOverflow", "", MB_OK); } }
Вот так не работает, однако. Чем лечить? На дельфях можно тыкнуть {$Q+}. Дык все равно не работает. Почему не выскакивает экцепшин? Другие ведь выскакивають (EDivByZero).

Заранее благодарю.

← →
Игорь Шевченко © (2002-06-05 12:02) [1]

Посмотрите в отладчике, какие флажки выставляются после операции

← →
Бадян © (2002-06-05 13:10) [2]

Если написать a = a*a;
OF, как миленький, устанавливается.
Но уст. или не уст. OF нет никакой разницы. EIntOverflow все равно не вылезает. Хоть клаву грызи...

← →
Игорь Шевченко © (2002-06-05 13:21) [3]

a*((__int32)0xFFFF) что получится ? :-)

← →
Бадян © (2002-06-05 13:40) [4]

Мда...
Но все же?

← →
Внук © (2002-06-05 13:59) [5]

Если Вам действительно нужно получить этот Exception, то это не так просто :)
Но, сдается мне, что Вам нужен ERangeError (см. его описание в Help)

Но, если хотите, то вот:

...
uses Math;

...

procedure TForm1.Button1Click(Sender: TObject);
var Params:array[1..4] of Integer;
Res:Integer;
begin
{$Q+}
{$R-}
Res:=0;
Params[1]:=$7FFF0000;
Params[2]:=$FFF0;
Params[3]:=$F;
Params[4]:=$F;
try
Res:=SumInt(Params);
except
on E:EIntOverflow do ShowMessage("EIntOverflow");
on E:Exception do ShowMessage("Another Exception");
end;
ShowMessage(IntToStr(Res));
{$Q-}
end;

Может компилятор выкинул операцию с переменной A в следствии ее несипользованности.

EIntOverflow :???: Найти похожие ветки