——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>http://track
linktech
cn/?m_id=dangdang&a_id=A
&l=
&l_type
=
width=
height=
border=
nosave>
获取文字中英文单词的个数
本实例是通过空格逗号句号问号和感歎号来判断字符串中有多少个单词运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 获取文字中英文单词的个数
程序代码如下
procedure TFormButtonClick(Sender: TObject);
var
s:String;
it:Integer;
begin
t:=;
s:=trim(EditText);
for i:= to Length(s) do
begin
if (((Copy(si)>=a) and (Copy(si)<=z)) or ((Copy(si)>=A)
and (Copy(si)<=Z))) then
begin
if (not (((Copy(si+)>=a)and(Copy(si+)<=z))or((Copy(si+)>=A)
and(Copy(si+)<=Z)))) or (Copy(si+)=#) or (Copy(si+)=) or
(Copy(si+)=) or (Copy(si+)=?) or (Copy(si+)=!) then
begin
t := t+;
end;
end;
end;
LabelCaption := IntToStr(t);
end;
两个子字符串之间的字符的个数
本实例是用pos()函数来获取子字符串在字符串中的起始位置并用后面的子字符的起始位置减去前面子字符串的起始位置再减去前面子字符串的长度这样就得到了字符串中两个子字符串之间的字符的个数运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 两个子字符串之间的字符的个数
right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]
![Delphi开发技巧：字符串的个数问题[1]](/UploadFiles/8.jpg)