IsDBCSLeadByte函数

IsDBCSLeadByte函数用于用于判断一个字符是不是多字节字符，如果是返回一个非零数，如果不是返回零，利用它可以对字符串进行处理。

下面用此函数提取汉字

1”文件”—“new”—“Application”在窗体放置一个Edit 一个Label 一个Button按钮，设置Button的caption为提取汉字。

2双击Button输入如下代码:

procedure TForm1.Button1Click(Sender: TObject);

var

  len,j:integer;

  s:string;

  str:string;

begin

  s:=edit1.Text;

  j:=1;str:='';

  len:=length(s);

  while  j<=len do

   begin

     if windows.IsDBCSLeadByte(byte(s[j])) then

       begin

         str:=str+copy(s,j,2);

         j:=j+2;

       end

     else

       j:=j+1;

   end;

   label1.Caption:=str;

end;

3 运行程序。截图如下: