for-in loop
From Free Pascal wiki
Revision as of 11:24, 19 October 2009 by Paul Ishenin (talk | contribs) (New page: "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 DoSome...)
"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>