请问有没有得出在一个字符串中含有另一个字符串的次数的函数 ( 积分: 50 )

函数或是源码都可以.

函数或是源码都可以.

{获取字符串sVal 中子串sChar 的个数}
function GetCharCount(sVal: String
sChar: String): Integer;
var i,ind: Integer;
sRec: String;
begin
sRec := sVal;
i := 0;
ind := Pos(sChar,sRec);

while ind &gt
0 do
begin
Inc(i);
sRec := Copy(sRec,
ind + Length(sChar),
Length(sRec)-(ind+Length(sChar)-1));

ind := Pos(sChar,sRec);
end;
Result := i;
end;

大哥，下次提问前先搜索一下：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2957694

自己写应该没什么问题吧
可以用pos函数啊
function Fre(substr: String;desStr: String): Integer;
var n, m,p,q: Integer;
begin
m := 0;
n := pos(substr,desstr);
while(n <&gt
0) do
begin
inc(m);
p := n + length(substr);
q := length(desstr) - p + 1;
desstr := copy(desstr,p,q);
n := pos(substr,desstr)
end;
result := m;
end;

大哥，给你们赚点分不行吗？