Delphi开发技巧：字符串的个数问题[3]

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

在语句中查找汉字的个数

本实例是用comparemem()函数对字符中的汉字进行比较如果符合要查找的汉字则将没字的个数加运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 在语句中查找汉字的个数

主要代码如下

function TFormfindcount(const s sFind: string): Integer;

var

i: Integer;

begin

i := ;

result := ;

while i <= Length(s)Length(sFind)+ do

if comparemem(@(s[i]) @(sFind[]) Length(sFind)) then

begin

inc(result);

inc(i Length(sFind));

end

else if byte(s[i])> then

inc(i )

else inc(i);

end;

统计中英文个数

字符由一个字节组成ASCII码的范围在～之间而汉字由两个字节组成每个字节的ASCII码都大于等于本实例将通过以上条件对字符串中的中英文个数进行统计运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 统计中英文字个数

程序代码如下

procedure TFormButtonClick(Sender: TObject);

var

Str : String;

iEC:Integer;

begin

Str:=MemoText;

E:=;C:=;

for i:= to Length(Str) do

begin

if (Ord(Str[i])>=)and(Ord(Str[i])<=) then

begin

inc(E);

LabelCaption:=英文个数+IntToStr(E);

end

else

if (Ord(Str[i])>=) then

begin

inc(C);

LabelCaption:=中文个数+IntToStr(C div );

end;

end;

end;

right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] []