수색…


통사론

  • 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