डेविड और मेसन के शानदार उत्तरों के अलावा, मैं अपना व्यक्तिगत Exit
उपयोग पसंदीदा साझा करना चाहता हूं। आइए इसे "सुरक्षित गार्ड", "अंतिम रिज़ॉर्ट प्रदाता" के विपरीत, इसे कॉल करें। ;)
मूल विचार: this answer से
function Search(List: TList; Item: TObject): Integer;
begin
for Result := 0 to List.Count - 1 do
if List[Result] = Item then
Exit;
Result := -1;
end;
अन्य अधिक यथार्थवादी उदाहरण (और this answer):
const
Order: array[0..6] of String = ('B', 'C', 'A', 'D', 'G', 'F', 'E');
function GetStringOrder(const S: String; CaseSensitive: Boolean): Integer;
begin
for Result := 0 to Length(Order) - 1 do
if (CaseSensitive and (CompareStr(Order[Result], S) = 0)) or
(not CaseSensitive and (CompareText(Order[Result], S) = 0)) then
Exit;
Result := Length(Order);
end;
function FindControlAtPos(Window: TWinControl; const ScreenPos: TPoint): TControl;
var
I: Integer;
C: TControl;
begin
for I := Window.ControlCount - 1 downto 0 do
begin
C := Window.Controls[I];
if C.Visible and PtInRect(C.ClientRect, C.ScreenToClient(ScreenPos)) then
begin
if C is TWinControl then
Result := FindControlAtPos(TWinControl(C), ScreenPos)
else
Result := C;
Exit;
end;
end;
Result := Window;
end;
और डेल्फी की मदद से एक उद्धरण के साथ समापन कंपाइलर त्रुटि संदेश फॉर-लूप वीए पर riable '< तत्व> "पाश के बाद अपरिभाषित जा सकता है:
आप केवल लूप नियंत्रण चर के लिए एक के अंतिम मूल्य पर भरोसा कर सकते अगर पाश एक गोटो या बाहर निकलने के बयान के साथ छोड़ दिया है।
यह प्रश्न वास्तव में यहां उचित नहीं है, क्योंकि यह चर्चा और अटकलों के लिए पूछता है। यह वास्तव में [प्रोग्रामर] (http://programmers.stackexchange.com) पर निर्भर करता है जहां यह अधिक उपयुक्त है। [एफएक्यू] (http://stackoverflow.com/faq) विशेष रूप से इस प्रकार के प्रश्न का उल्लेख करता है क्योंकि इस साइट के प्रारूप और डिज़ाइन के साथ एक अच्छा फिट नहीं है। प्रोग्रामर के लिए माइग्रेट करने के लिए वोटिंग। –
मैं आपको निम्न लेख http://programmers.stackexchange.com/questions/77530/best-practices-concerning-exit-in-delphi का सुझाव देता हूं, यह एक ही विषय को विस्तृत तरीके से शामिल करता है। – RBA
लिंक्ड साइट गलतफहमी और खराब गुणवत्ता की जानकारी के लिए अच्छी तरह से जाना जाता है। अनदेखी करो इसे। वह जो असफल प्रयास करने की कोशिश करता है वह है * एकल निकास बिंदु * अवधारणा। – OnTheFly