एक लूप

Question

में जारी रखने का उपयोग कर पाठ फ़ाइलों के साथ काम करते समय जारी रखें जबकि लूप में जारी किया जा सकता है?

मैं कुछ प्रसंस्करण करना चाहता हूं और कुछ मूल्यों की जांच करना चाहता हूं। यदि सही है, तो मैं एक पुनरावृत्ति छोड़ना चाहता हूं। यदि गलत है, तो मैं लाइनों के अगले सेट (प्रसंस्करण जारी रखना) जारी रखना चाहता हूं।

क्या इस मामले में जारी रखना एक पुनरावृत्ति छोड़ देता है?

Answer 1

एक परीक्षण भी आवश्यक नहीं है।

डेल्फी कोड में, जारी प्रक्रिया के लिए संलग्न की अगले चरण के लिए आगे बढ़ने के लिए है, जबकि, या दोहराने बयान नियंत्रण के प्रवाह का कारण बनता है: The documentation पहले से ही आप इस सवाल का जवाब बताता है।

ध्यान दें कि लूप क्या कर रहा है इसके बारे में कोई चेतावनी नहीं है। जारी बयान के अगले पुनरावृत्ति पर आता है पाश। आपके मामले में, इसका मतलब है कि Eof फिर से चेक किया जाएगा, और फिर लूप का शरीर चला जाएगा।

Answer 2

एक त्वरित 30-सेकंड का परीक्षण लगता है कि यहां एक पोस्ट से अधिक तेज़ी से जवाब मिलेगा। :)

program Project2; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    i, j: Integer; 

begin 
    j := 0; 
    i := 0; 
    while i < 10 do 
    begin 
    Inc(i); 
    if Odd(i) then 
     Continue; 
    Inc(j); 
    WriteLn(Format('i = %d, j = %d', [i, j])); 
    end; 
    ReadLn; 
end. 

ध्यान दें कि iContinue करने के लिए कॉल, जो j में जो परिणाम विषम संख्या प्रदर्शित करने से पहले वृद्धि की जाती है, मैं even प्रदर्शित? j केवल तब बढ़ता है जब लूप Continue परीक्षण से पहले चला जाता है।

ए while वही काम करता है जैसे आप एक पूर्णांक में वृद्धि कर रहे हैं, एक स्ट्रिंग को संयोजित कर रहे हैं, या एक टेक्स्ट फ़ाइल से पढ़ रहे हैं। while एक whilewhile कोई फर्क नहीं पड़ता कि आप इसका उपयोग कैसे करते हैं। आपको बस यह सुनिश्चित करने की ज़रूरत है कि, ऊपर दिए गए कोड में, DoSomething वास्तव में फ़ाइल से अगली पंक्ति पढ़ता है या आप निरंतर लूप में समाप्त हो जाएंगे।