DELPHI 字符串中的汉字处理

Question

我的代码如下
var
source,str: String;
len,i: Integer;
begin
source :='one中国a富强';
len := Length(source);
for i := 1 to len do
begin
if Ord(source[i]) > 128 then
str:=str+source[i];
end;
ShowMessage(str);
end;

我想让 ‘ one中国a富强’在每个汉字后面加入一个空格即“one中 国 a富 强 ”
我应该怎么写？望高手帮帮。
解决后再给分，谢谢

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
source,str: String;
len,i: Integer;
begin
source :='one中国a富强';
len := Length(source);
for i := 1 to len do
begin
if Ord(source[i]) > 128 then
str:=str+MidStr(source,i,1)+' '
else str:=str+MidStr(source,i,1);
end;
ShowMessage(str);
end;

end.
以上在delphi7下通过。本回答被提问者采纳

Answer 2

有一个非常有用的函数：bytetype，可以判断一个字符中，某个char是单个字母，还是双字节的前一位或后一位。
比如：
bytetype('w我',1)=mbsinglebyte
bytetype('w我',2)=mbleadbyte
bytetype('w我',3)=mbTrailbyte
剩下的你自己琢磨吧，我想你应该会了。

Answer 3

var
source,str: String;
改成WideString