Embarcadero Delphi
लूप्स के लिए

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

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

टिप्पणियों

पाश के लिए सरल

एक for न खत्म होने वाली मूल्य समावेशी शुरू मूल्य से पाश दोहराता।

program SimpleForLoop;

{$APPTYPE CONSOLE}

var
  i : Integer;
begin
  for i := 1 to 10 do
    WriteLn(i);
end.

आउटपुट:

1
2
3
4
5
6
7
8
9
10

एक स्ट्रिंग के पात्रों पर लूपिंग

program ForLoopOnString;

{$APPTYPE CONSOLE}

var
  s : string;
  c : Char;
begin
  s := 'Example';
  for c in s do
    WriteLn(c);
end.

लूप के लिए रिवर्स-दिशा

एक for एक "गिनती-नीचे" उदाहरण के रूप में समाप्त होने वाले मूल्य समावेशी करने के लिए नीचे शुरू कर मूल्य, से पाश दोहराता।

program CountDown;

{$APPTYPE CONSOLE}

var
  i : Integer;
begin
  for i := 10 downto 0 do
    WriteLn(i);
end.

आउटपुट:

10
9
8
7
6
5
4
3
2
1
0

एक गणना का उपयोग लूप के लिए

एक गणना में आइटम के माध्यम से लूप पुनरावृति के for

program EnumLoop;

uses
  TypInfo;

type
  TWeekdays = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday);

var
  wd : TWeekdays;
begin

  for wd in TWeekdays do
    WriteLn(GetEnumName(TypeInfo(TWeekdays), Ord(wd)));

end.

आउटपुट:

रविवार
सोमवार
मंगलवार
बुधवार
गुरूवार
शुक्रवार
शनिवार

सरणी में

एक सरणी में आइटम के माध्यम से लूप पुनरावृति के for

program ArrayLoop;
{$APPTYPE CONSOLE}  
const a : array[1..3] of real = ( 1.1, 2.2, 3.3 );
var f : real;
begin
  for f in a do
    WriteLn( f );    
end.

आउटपुट:

1,1
2,2
3,3