13.Delphi：循环语句for-in

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;
13.png
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容