DELPHI 字符串中的汉字处理

Posted 2023-04-08

我的代码如下
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富 强 ”
我应该怎么写？望高手帮帮。
解决后再给分，谢谢

参考技术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下通过。本回答被提问者采纳 参考技术B 有一个非常有用的函数：bytetype，可以判断一个字符中，某个char是单个字母，还是双字节的前一位或后一位。
比如：
bytetype('w我',1)=mbsinglebyte
bytetype('w我',2)=mbleadbyte
bytetype('w我',3)=mbTrailbyte
剩下的你自己琢磨吧，我想你应该会了。 参考技术C var
source,str: String;
改成WideString

Delphi判断字符串中是否包含汉字，并返回汉字位置

1，函数代码：

{

  判断字符串是否包含汉字
  // judgeStr：要判断的字符串
  //posInt：第一个汉字位置
}
function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean;
var
  p: PWideChar; // 要判断的字符
  count: integer; // 包含汉字位置
  isHave: boolean; // 是否包含汉字返回值
begin

  isHave := false; // 是否包含汉字返回值默认为false
  count := 1; // 包含汉字位置默认为1

  p := PWideChar(judgeStr); // 把要判断字符串转换

  // 循环判断每个字符
  while p^ <> #0 do
  begin
    case p^ of
      #$4E00 .. #$9FA5:
        begin
          isHave := true; // 设置是否包含汉字返回值为true
          posInt := count; // 设置包含汉字位置
          break; // 退出循环
        end;

    end;

    Inc(p);
    Inc(count); // 包含汉字位置递增
  end;

  result := isHave;
end;

2，例子：

procedure TForm2.Button3Click(Sender: TObject);
var
  testStr1, testStr2: string;
  posInt: integer;
begin
  testStr1 := ‘12345‘;
  testStr2 := ‘123汉字45‘;

  if self.IsHaveChinese(testStr1, posInt) = true then
  begin
    ShowMessage(testStr1 + ‘ 包含汉字 ：‘ + inttostr(posInt));
  end
  else
  begin
    ShowMessage(testStr1 + ‘ 不包含汉字‘);
  end;

  if self.IsHaveChinese(testStr2, posInt) = true then
  begin
    ShowMessage(testStr2 + ‘ 包含汉字 ：‘ + inttostr(posInt));
  end
  else
  begin
    ShowMessage(testStr2 + ‘ 不包含汉字‘);
  end;
end;

参考：http://www.cnblogs.com/del/archive/2009/04/14/1435722.html