Embarcadero Delphi
लूप्स

परिचय

वाक्य - विन्यास

• ऑर्डिनल वियरेबल के लिए: = लोअरऑर्डिनलवैल्यू से अपरऑर्डिनलवैल्यू {लूप-बॉडी} एंड शुरू करते हैं;
• साधारण व्यवहार के लिए: = लोअरऑर्डिनलव्यू लोअरऑर्डिनलवैल्यू {लूप-बॉडी} अंत शुरू करते हैं;
• संग्रह में EnumerableVariable के लिए शुरू {पाश-शरीर} अंत;
• {विराम-स्थिति} तक {लूप-बॉडी} दोहराएं;
• जबकि {हालत} शुरू हो {लूप-बॉडी} अंत;

ब्रेक और जारी रखें लूप्स में

program ForLoopWithContinueAndBreaks;

{$APPTYPE CONSOLE}

var
  var i : integer;
begin
  for i := 1 to 10 do
    begin
      if i = 2 then continue; (* Skip this turn *)
      if i = 8 then break;    (* Break the loop *)
      WriteLn( i );
    end;
  WriteLn('Finish.');
end.

आउटपुट:

1
3
4
5
6
7
समाप्त।

दोहराओ जब तक

program repeat_test;

{$APPTYPE CONSOLE}

var s : string;
begin
  WriteLn( 'Type a words to echo. Enter an empty string to exit.' );
  repeat
    ReadLn( s );
    WriteLn( s );
  until s = '';
end.

कंसोल पर यह छोटा उदाहरण प्रिंट करने के लिए Type a words to echo. Enter an empty string to exit. उपयोगकर्ता प्रकार के लिए प्रतीक्षा करें, इसे प्रतिध्वनित करें और अनंत लूप में फिर से इनपुट प्रतीक्षा करें - जब तक उपयोगकर्ता खाली स्ट्रिंग में प्रवेश नहीं करता।

करते समय

program WhileEOF;
{$APPTYPE CONSOLE}
uses SysUtils;

const cFileName = 'WhileEOF.dpr';
var F : TextFile;
s : string;
begin
  if FileExists( cFileName )
    then
      begin
        AssignFile( F, cFileName );
        Reset( F );

        while not Eof(F) do
          begin
            ReadLn(F, s);
            WriteLn(s);
          end;

        CloseFile( F );
      end
    else
      WriteLn( 'File ' + cFileName +  ' not found!' );
end.

यह उदाहरण, While not(EOF) स्थिति का उपयोग While not(EOF) हुए, WhileEOF.dpr फ़ाइल की पाठ सामग्री को सांत्वना देने के लिए प्रिंट While not(EOF) । यदि फ़ाइल खाली है, तो ReadLn-WriteLn लूप निष्पादित नहीं किया जाता है।