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 運行程序。截圖如下: