DELPHI 字符串中的汉字处理

我的代码如下varsource,str:String;len,i:Integer;beginsource:='one中国a富强';len:=Length(source);... 我的代码如下
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富 强 ”
我应该怎么写?望高手帮帮。
解决后再给分,谢谢
展开
 我来答
百度网友1c6b613
2010-01-04 · TA获得超过1.5万个赞
知道小有建树答主
回答量:1277
采纳率:0%
帮助的人:1059万
展开全部
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下通过。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
narsen
2010-01-04
知道答主
回答量:1
采纳率:0%
帮助的人:0
展开全部
有一个非常有用的函数:bytetype,可以判断一个字符中,某个char是单个字母,还是双字节的前一位或后一位。
比如:
bytetype('w我',1)=mbsinglebyte
bytetype('w我',2)=mbleadbyte
bytetype('w我',3)=mbTrailbyte
剩下的你自己琢磨吧,我想你应该会了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
tevistang
2010-01-04 · TA获得超过504个赞
知道小有建树答主
回答量:662
采纳率:0%
帮助的人:466万
展开全部
var
source,str: String;
改成WideString
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式