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富 强 ”
我应该怎么写?望高手帮帮。
解决后再给分,谢谢 展开
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富 强 ”
我应该怎么写?望高手帮帮。
解决后再给分,谢谢 展开
展开全部
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下通过。
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下通过。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
有一个非常有用的函数:bytetype,可以判断一个字符中,某个char是单个字母,还是双字节的前一位或后一位。
比如:
bytetype('w我',1)=mbsinglebyte
bytetype('w我',2)=mbleadbyte
bytetype('w我',3)=mbTrailbyte
剩下的你自己琢磨吧,我想你应该会了。
比如:
bytetype('w我',1)=mbsinglebyte
bytetype('w我',2)=mbleadbyte
bytetype('w我',3)=mbTrailbyte
剩下的你自己琢磨吧,我想你应该会了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
var
source,str: String;
改成WideString
source,str: String;
改成WideString
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询