如何判断一个字符是否是中文？(200分)

N

nickle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #1

判断输入的一段字符哪些是中文，哪些是英文或数字？
用什么方法，有没有现成的空件？

 

L

lanjiancn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #2

取出来看用ASCII比较

可能也不是很准的呀

 

S

sungolf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #3

搜索一下，有很多这样的问题。我曾经找过，不想照抄：）

 

沙

沙隆巴斯的主人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-07

• #4

汉字占2个BYTE，你只要检查它的第一的BYTE如果大于127就表明是汉字

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2:array[0..2] of char;
b:byte;
i:integer;
begin
caption:='';
s1:='我'; s2:='me';
if windows.isDBCSLeadByte(byte(s1[0])) then
caption:=caption+'s1 is HZ '
else
caption:=caption+'s1 is Eng ';
if windows.isDBCSLeadByte(byte(s2[0])) then
caption:=caption+'s2 is HZ '
else
caption:=caption+'s2 is Eng ';
end;

 

L

linbz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #6

c:integer;
Str:string;
astr1char;
astr:Char;
begin
c:=1;
while c<strlen(pchar(Str))+1 do
begin
astr1:=pchar(copy(Str,c,1));
astr:=astr1^;
if ord(astr)>128 then
begin
//是汉字;
end
else
begin
//非汉字;
end;
end;
end;

 

B

Byg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #7

再一个办法，请用
StrByteType(PChar(Value), index) = mbSingleByte
StrByteType(PChar(Value), index) = mbTrailByte 来判断

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #8

//只要把string转换成 widestring,然后 如果长度 大于1 代表亚洲字符
function howmanychinese(const s:string):integer;
var c:string;
sw:widestring;
i,wcount:integer;
begin
sw:=s;
wcount:=0;
for i:=1 to length(sw) do
begin
c:=sw;
if length(c)>1 then inc(wcount);
end;
result:=wcount;
end;

 

C

citybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #9

linbz兄：
你的循环好象没结束的那一天吧，呵呵！

 

F

f950436

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #10

linbz兄思路正确，但是并不能判断，以下是我的方法：

function GetStrType(aChStr:string):String;
var
sChar : string;
bNeedNext : Boolean;
i : integer;//Looper
begin
Result := '';
bNeedNext := false;
sChar := '';
for i := 1 to Length(aChStr) do
if Ord(aChStr) <= 127 then
Result := Result + 'E'
else
begin
bNeedNext := not bNeedNext;
sChar := sChar + aChStr;
if bNeedNext then continue;
Result := Result + 'C';
sChar := '';
end;//case
end;

 

N

nickle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #11

多谢各位，我试一下。

 

N

nickle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #12

多人接受答案了。