delphi中判断全角

[coderee]

如何在delphi 7中判断一个字段串中含有全角逗号?

[coderee]

我的意思是说怎样判断一个字段串中的逗号时半角还是全角？

[gyk120]

全角就是汉字，双字节，你比较ASCII码就可以了……

[babydog01]

pos()就可以吧

[yqdragon]

单独判断全角逗号，pos是可以

判断其它是否属于全角字符：
GB2312字符集中的全角字符是A1A1-B0A0，汉字字符是>B0A0

[chinawcs]

[Quote=引用 3 楼 yqdragon 的回复:]
单独判断全角逗号，pos是可以

判断其它是否属于全角字符：
GB2312字符集中的全角字符是A1A1-B0A0，汉字字符是>B0A0
[/Quote]
根据编码范围判断 才是正途
参考我的博客 http://blog.csdn.net/chinawcs/article/details/5991912

[yqdragon]

不错，学习下

[蓝色光芒]

只判断一个字符可以用pos,
要了解汉字编码,百科中搜索GB2312,即可

[wzn0521]

全角是汉字编码，判断ASCII码就OK了

[无条件为你]

全角逗号就用pos即可。

如果是判断一个字符串中是否包含任意一个全角字符，那么用widestring变量就可以了。
分别把这个字符串赋值给widestring和string，然后比较后者是不是前者的2倍，如果是，说明字符中没有包含全角，否则，说明至少包含一个全角字符。

[likeyrain]

支持4楼的方法

[无条件为你]

[Quote=引用 10 楼 coderee 的回复:]
我的意思是说怎样判断一个字段串中的逗号时半角还是全角？
[/Quote]
var s:widestring;

s:='你的字符串,，'
for i:=1 to length(s) do
begin
if s[i]=',' then //半角。
if s[i]='，' then //半角。
end;

[无条件为你]

var s:widestring;

s:='你的字符串,，'
for i:=1 to length(s) do
begin
if s[i]=',' then //半角。
if s[i]='，' then //全角。
end;