이상 메커니즘과 디버깅 코드 차단

procedure TForm1.Button3Click(Sender: TObject);
var
    Ratio, Numerator, Denominator: integer;
begin
    Denominator:=0;
    Numerator:=0;
    try
        Ratio:= Numerator div Denominator;
    except
        on EDivByZero do
        begin
            Ratio:=0; //        ShowMessage
            {$IFOPT D-} //     D+，         。
            ShowMessage('0000');
            {$ENDIF}
        end;
    end;
    ShowMessage(IntToStr(Ratio));
end;

 

procedure TForm1.Button4Click(Sender: TObject);
var
    Ratio, Numerator, Denominator: integer;
begin
    Denominator:=0;
    Numerator:=0;
    Ratio:= Numerator div Denominator; //         ， Delphi    DivByZero     ，       
    ShowMessage(IntToStr(Ratio));
end;