Embarcadero Delphi                
            For 루프
        
        
            
    수색…
통사론
- OrdinalVariable : = LowerOrdinalValue to UpperOrdinalValue do begin {loop-body} end;
 - OrdinalVariable : = UpperOrdinalValue downto LowerOrdinalValue do begin {loop-body} end;
 - Collection의 EnumerableVariable에 대해 begin begin {loop-body} end;
 
비고
-  델파이 
for-loop 구문에서 단계 금액을 변경 아무것도 제공하지 않는1다른 값으로한다. -  변수 서수 값 (예 : 
Integer유형의 로컬 변수)을 사용하여 루핑 할 때, 위 및 아래 값은 한 번만 결정됩니다. 이러한 변수에 대한 변경 사항은 루프 반복 횟수에 영향을 미치지 않습니다. 
단순 루프
 for 루프는 시작 값에서 종료 값까지 반복합니다. 
program SimpleForLoop;
{$APPTYPE CONSOLE}
var
  i : Integer;
begin
  for i := 1 to 10 do
    WriteLn(i);
end.
 산출:
1
2
삼
4
5
6
7
8
9
10
문자열의 문자 반복
 2005 년 
         다음은 문자열 s 의 문자를 반복합니다. 루프 제어 변수 (이 예에서 c )의 유형이 반복되는 값의 요소 유형과 일치하는 한 배열 또는 세트의 요소를 루핑하는 경우에도 유사하게 작동합니다. 
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
삼
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
Modified text is an extract of the original Stack Overflow Documentation
        아래 라이선스 CC BY-SA 3.0
        와 제휴하지 않음 Stack Overflow