1.for-in 循環(huán)中，循環(huán)對數(shù)組， 列表，字符串或其他某種類型的容器的每個(gè)元素進(jìn)行操作。
2.打開IDE，新建VCL應(yīng)用，添加一個(gè)button1，一個(gè)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('遍歷數(shù)組:Arr[]');
  for var j := 0 to 5 do
    Arr[j]:=Random(10);
  for i in Arr do         // 遍歷數(shù)組
    Memo1.Lines.Add(i.ToString);


  Memo1.Lines.Add('遍歷子子界:[10..15]');

  for i in [10..15] do         // 遍歷數(shù)組
    Memo1.Lines.Add(i.ToString);

end;

13.png