for-in loop

"for-in" loop exists in delphi starting from 2005 version.

It has the next syntax:

String loop:

<delphi> procedure StringLoop(S: String); var

 C: Char;

begin

 for C in S do
   DoSomething(C);

end; </delphi>

Array loop:

<delphi> procedure ArrayLoop(A: Array of Byte); var

 B: Byte;

begin

 for B in A do
   DoSomething(B);

end; </delphi>

Set loop:

<delphi> type

 TColor = (cRed, cGren, cBlue);
 TColors = set of TColor;

procedure SetLoop(Colors: TColors); var

 Color: TColor;

begin

 for Color in Colors do
   DoSomething(Color);

end; </delphi>