델파이에서 0으로 나눈 값 나누기를 일으킨 변수를 얻거나 찾는 방법?

Question

기본적인 예외 처리 방법을 알고 있습니다. 그래서 'try except'메소드를 사용하여 0으로 나누면 메시지를 올릴 수 있습니다.

내가 뭘하고 싶은지,이 오류를 일으키는 변수를 찾아 런타임에 값을 변경하십시오. 예를 들어

:

는

procedure Calculate(); 
var 
    a, b, c : Double; 
begin 
    try 
    a := 4; //suppose i take this value from user and he enters 4 
    b := 0; //suppose i take this value from user and he enters 0 
    c := a/b; 
    ShowMessage(FloatToStr(c)); 
    except 
    on E : EZeroDivide do 
    begin 
     ShowMessage('Exception message = '+E.Message); 

//i am not sure how to identify that its variable 'b' that is causing the error and has to be changed by a default value 

     get(E....errorVaraiable); 
     E....errorVaraiable := 0.00001; 
     c := a/E....errorVariable; 

     ShowMessage(FloatToStr(c)); 
    end; 
    end; 

, 사람이 좀 도와 줄래하세요?

Answer 1

다음은 원하는대로 수정 한 예제입니다.

procedure Calculate(); 
var 
    a, b, c : Double; 
begin 
    a := 4; //suppose i take this value from user and he enters 4 
    b := 0; //suppose i take this value from user and he enters 0 
    if IsZero(b) then 
    begin 
    ShowMessage('b cannot be 0') 
    end 
    else 
    begin 
    c := a/b; 
    ShowMessage(FloatToStr(c)); 
    end; 
end;