https://www.jianshu.com/p/0fd88af44e4b
1.for-in 循环中，循环对数组， 列表，字符串或其他某种类型的容器的每个元素进行操作。
2.打开IDE，新建VCL应用，添加一个button1，一个memo1，双击button1，编写代码：
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
c: Char;
Arr: array [0 .. 5] of integer;
i: Integer;
begin
Memo1.Clear;
str := 'ABCD';
Memo1.Lines.Add('遍历字符串:'+str);
for c in str do // 遍历字符串
Memo1.Lines.Add(c);
Memo1.Lines.Add('遍历数组:Arr[]');
for var j := 0 to 5 do
Arr[j]:=Random(10);
for i in Arr do // 遍历数组
Memo1.Lines.Add(i.ToString);
Memo1.Lines.Add('遍历子子界:[10..15]');
for i in [10..15] do // 遍历数组
Memo1.Lines.Add(i.ToString);
end; 