急!急!紧急求助!关于字符串!(在线等待!)(20分)

  • 主题发起人 主题发起人 虚雷
  • 开始时间 开始时间

虚雷

Unregistered / Unconfirmed
GUEST, unregistred user!
假设有一字符串str
怎样判断str里面至少有3个以上的字符'a'(包括3个)
谢谢!
在线等待!!急!
 
怎么没人告诉我,这么难吗?!!
求你们了啊!
 
function IsYourNeed(const str:string):boolean;
var
i:Integer;
iaNum:Integer;
begin
iaNum:=0;
Result := false;
for i:=1 to Length(str)do
begin
if str='a' then
iaNum:=iaNum+1;
if iaNum = 3 then

begin
Result := true;
Exit;
end;
end;
end;
 
Greenspan的回答很不错,给他加分吧……
 
接受答案了.
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
I
回复
0
查看
606
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部