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

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

主要代码如下

Function TFormStrcount( s s s : String ): Integer;

var

ijslen : Integer;

begin

i := Pos( s s );

j := Pos( s s );

slen := Length(s);

if j >= i then

result := j i slen

else

result := ;

end;

procedure TFormButtonClick(Sender: TObject);

var

n : Integer;

begin

n := Strcount(EditTextEditTextEditText);

ShowMessage(IntToStr(n));

end;

判断字符在字符串中出现的个数

本实例是用Pos()函数来判断字符串中是否有指定的字符如果有则将个数加同时用Delete()函数删除已查到字符前的所有字符这样在下次查询时不包含上次所查询的字符运行结果如图所示

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

图 判断字符在字符串中出现的个数

主要代码如下

procedure TFormButtonClick(Sender: TObject);

var

iCount : Integer;

ss : String;

begin

iCount := ;

s := Trim(EditText);

s := Trim(EditText);

while Pos(ss)> do

begin

inc(iCount);

Delete(sPos(ss));

end;

ShowMessage(IntToStr(iCount));

end;

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