串中只有汉字,而不包括数字,字母,还有乱码什么的。。谢谢各位大大了!!
解决方案 »
- 求助: 使用IDHTTP注册蜀门帐号 老错误提示
- WIN系统资深:WriteLn写出中文乱码
- 请教:菜单中没有使用权限的设为Enabled:=False; ,如何使鼠标移到此菜单上显示为:'你没有使用此功能的权限'的提示?
- 自定义控件的属性页中链接其它控件的方法
- 请关注:mapx如何打包?
- 还是有关DBF的问题
- 请教PChar函数的用法
- 新手求教:工程中用到的*.bpl如何编译入EXE文件中一块发布
- www.yichun-window.com是在一个山沟里的村庄,里面有不少的漂亮妹妹了,不少人都占了便宜,你是否能占到便宜,看你的本事了。呵呵……………………
- 救命!!四个需求不明确的系统需要多少开发周期?
- 关于QREPORT3.6.2的一个问题
- 没有人知道吗???
showmessage('edit1只有汉字')
function CalcUnicodeLen(const S: string):integer;
var
i,j:integer;
begin
j:=0; For i:= 1 to Length(Trim(s)) do
begin
if ByteType(s,i)<> mbTrailByte then
inc(j);
end;
Result := j;
end;
//这个函数返回有多少个汉字
function CalcUnicodeLen(const S: string):integer;
var
i,j:integer;
begin
j:=0; For i:= 1 to Length(Trim(s)) do
begin
if ByteType(s,i) = mbLeadBytethen
inc(j);
end;
Result := j;
end;