For..In语句用于遍历一个集合，它支持的对象如下：
引用:
Classes.TList
Classes.TCollection
Classes.TStrings
Classes.TInterfaceList
Classes.TComponent
Menus.TMenuItem
ActnList.TCustomActionList
DB.TFields
ComCtrls.TListItems
ComCtrls.TTreeNodes
ComCtrls.TToolBar
同时也支持这些对象的子类。
比较常用的是遍历一个TStringList，如下：
复制内容到剪贴板
代码:
begin
for s in SL do
begin
ShowMessage(s);
end;
end;其次是遍历数组，如下：
复制内容到剪贴板
代码:
TDemoArray : array[0..10] of Integer = (1,2,3,4,5,6,7,8,9,10);
DemoArray: TDemoArray;
begin
for i in DemoArray do
begin
ShowMessage(IntToStr(i));
end;
end;本文转自:http://hi.baidu.com/rarnu
