求:判断一个字符在一个字符串里出现次数的函数.

[zjj_horse]

[BraveYang]

//统计字符串出现的次数 Repeated=true重复统计入 12121，121 ＝2
//--------------------------------------------------------------------
function CountSubString(const str,subStr: string;Repeated:Boolean=false): integer;
var
i, iLen : integer;
sTemp: string;
begin
iLen:=Length(subStr);
if (iLen<=0) then
begin
Result:=-1;
Exit;
end;
sTemp:=str;
result:=0;
i:=Pos(subStr,sTemp);
while (i>0) do
begin
Inc(Result);
if Repeated=false then
Delete(sTemp,1,i+iLen-1)
else
Delete(sTemp,1,i);
i:=Pos(subStr, sTemp);
end;
end;

[票票飞扬]

function CharTimes(ch:Char;ss:String):Integer;
var ii: Integer;
begin
Result := 0;
for ii := 0 to Length(ss)-1 do
if ch = ss[ii] then
Result := Result + 1;
end;

[wd2306]

自己写个函数

[BlueDreaming]

delphi50好象没有,delphi60不知道有没有这样的函数，自己写一个不就可以了?

function FoundAlpha(source: string; dest: char): Integer;
var I: Integer;
count: Integer;
begin
count := 0;
for I := 1 to length(source)
if (source[I] = dest) then Inc(count, 1);
Result := count;
end;