Delphi 字符串分解

Question

大家好！
  如何将汉字和英文组成的字符串进行拆解呢？例如有字符串:"你是Man"拆成"你"、"是"、"M"、"a"、"n"这五个字符串！
谢谢！

Answer 1

用WideString,根据索引访问就是了，比如
var
s:widestring;
s := '中国123';
那么 s[1]就是'中'

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:WideString;
  i:integer;
begin
  s:='ÄãÊÇMan';
  for i:=1 to length(s) do
    ShowMessage(s[i]);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  s:WideString;
  i:integer;
begin
  s:='你是Man';
  for i:=1 to length(s) do
    ShowMessage(s[i]);
end;