for in 循环中,会把整个数组、字符串、List 里面的所有元素都列出来。
procedure TForm1.Button1Click(Sender: TObject); var S: string; Ch: Char; begin S := 'Hello world'; for Ch in S do begin Memo1.Lines.Add(Ch); end; end;