求把字符串变量加入空格的函数!!!!!!!!!!!急!!!

Question

求把字符串变量加入空格的函数!!!!!!!!!!!急!!!例如
   var  str:string;beginstr:="中华人民共和国abc";..
..要求这个函数在字与字之间加入空格,变成
  "中 华 人 民 共 和 国 a b c"这个函数如何写?

Answer 1

自己写吧,
用copy就可以完成

Answer 2

procedure addblank(var s:string);
var
  i:integer;
  ss:string;
begin
  for i:=1 to Length(s) do
  begin 
    ss := ss+s[i]+' ' ;
  end;
  s := ss ;
end;

Answer 3

var
  i: integer;
  s: string;
  ws: WideString;
begin
  s := '中华人民共和国abc';
  ws := s;
  s := '';
  for i := 1 to Length(ws) do
    s := s + ws[i] + ' ';
  s := copy(s, 1, length(s) - 1);
  showmessage('"' + s + '"');
end;