简单问题，如何判断一个字符是汉字还是字母(50分)

Y

YinZu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #1

如何判断一个字符是汉字还是字母，有何简单方法?

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #2

wyh919 (2002-1-22 14:43:00)
用ByteType()
Function Judge(S:String):Boolean;
var i: integer;
begin
result:= False;
for i:= 0 to Length(S)-1 do begin
if (ByteType(S,i) <> mbSingleByte) then begin
result:= True;//含有中文字符或其它双字节字符
break;
end;
end;
end;

 

A

axcom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #3

ByteType函数

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
s,ss:string;
ws:widestring;
i:integer;
begin
s:='AA在地一345677工在五00-$%#';
ws:=s;
ss:='';
for i:=1 to length(ws) do
if length(string(ws))>1 then ss:=ss+'汉'
else ss:=ss+'A';
showmessage(s+#13+ss);
end;

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-20

• #5

用isDBCSLeadByte()

 

Y

YinZu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #6

多人接受答案了。