मैं अस्थायी रूप से "वापसी मूल्य को अपरिभाषित" चेतावनी कैसे अक्षम कर सकता हूं?

Question

मैं अपने कोड में एक विशिष्ट चेतावनी (W1035) को निष्क्रिय करना चाहते के बाद से मुझे लगता है कि संकलक इस चेतावनी के बारे गलत है:

function TfrmNagScreen.Run: TOption; 
begin 
    if ShowModal = mrOk then 
    Result := TOption(rdgAction.EditValue) 
    else 
    Abort 
end; 

कोई रास्ता परिणाम अपरिभाषित जा सकता है, के बाद से Abort फेंकता EAbort।

मैंने कोशिश की:

• {$WARN 1035 Off}: कुछ विशिष्ट त्रुटियों के लिए जाहिरा तौर पर यह केवल काम करता है (Documentation देखें)
• {$W-1035}: सभी

मैं जानता हूँ कि मैं चेतावनी बंद कर सकते हैं पर कुछ नहीं करता वैश्विक स्तर पर परियोजना विकल्पों में, या {$WARNINGS OFF} का उपयोग करके, लेकिन यह यहां नहीं है।

संपादित करें: मैंने इसे #89744 के रूप में क्यूसी किया है।

Answer 1

आप वैश्विक स्तर पर इस चेतावनी को अक्षम नहीं कर सकते हैं, लेकिन आप स्थानीय रूप से चेतावनी को अक्षम करने के लिए {$WARN NO_RETVAL OFF} का उपयोग कर सकते हैं।

{$WARN NO_RETVAL OFF} 
function TfrmNagScreen.Run: TOption; 
begin 
    if ShowModal = mrOk then 
    Result := TOption(rdgAction.EditValue) 
    else 
    Abort 
end; 
{$WARN NO_RETVAL ON} 

Answer 2

मैं एक डेल्फी संकलक इस समय उपलब्ध नहीं है, लेकिन कोड उलटफेर को दूर करने के if..else बना सकता है चेतावनी चले जाओ:

function TfrmNagScreen.Run: TOption; 
begin 
    if ShowModal <> mrOk then 
    Abort; 

    Result := TOption(rdgAction.EditValue); 
end; 

भी देखें How to disable a warning in Delphi about “return value … might be undefined”?।

Answer 3

आप संकलक को बेवकूफ बनाने की एक साफ चाल का उपयोग कर सकते हैं। एक पुस्तकालय समारोह के रूप में तो निर्धारित करें:

if ShowModal = mrOk then 
    Result := TOption(rdgAction.EditValue) 
else 
    Abort(Result) 

संकलक सोचता है कि आप के बाद से यह एक वर पैरामीटर है परिणाम के लिए लिखा है और यह मिमिया बंद हो जाता है:

procedure Abort(var X); 
begin 
    SysUtils.Abort; 
end; 

के रूप में तब आप अपने समारोह लिख सकते हैं।