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;