是否有这样的函数，查找在字符串A中有几个字符串B？(18分)

D

Duj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #1

 

S

sundart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #2

这个函数我不知道 Delphi 有没有，
但至少自己可以编写一个。
可以通过比较找到第一个出现的位置，然后切取后面的字符串作为下一次比较的字符串

号至到再也不包含为止。 ：）

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-25

• #3

也不至于懒到这种程度吧？自己写函数

 

J

Jamw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-25

• #4

没有，自己编吧。又不难。

 

H

honghs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-25

• #5

function tform1.StrCount(DStr:string;substr:String):Integer;
var
tstr:string;
i,j:Integer;
begin
i:=0;
j:=Pos(SubStr,Dstr);
tstr:=Dstr;
while (j<>0) do
begin
Inc(i);
tstr:=Copy(tstr,(j+Length(SubStr)),(Length(tstr)-Length(SubStr)));
j:=Pos(SubStr,tstr);
end;
Result :=i;
end;

调用
caption :=inttostr(strcount('123412','12'));

 

D

Duj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-19

• #6

多人接受答案了。