delphi 逐字遍历字符串中的字符

 Var

      C :Char;

      S : String;

begin

  for i:= 1 to Length(S) do begin

    C:=Str[i];

  end;

end;