//例子一 by ruralboy (寻思靓妹的忙碌中) in 盒子論壇
function GetCharCount(const S: string; const c: Char): integer;
var
i: integer;
begin
result := 0;
i := length(s);
if i > 0 then
for i := 1 to i do
if s[i] = c then
inc(result);
end;
//例子二 by greenleaf (dudu) in 盒子論壇
Function GetCharCount(const S: string; const c: string): integer;
var
i,j,k: integer;
begin
i := length(s);
j := length(c);
if j>i then
begin
Result:=0;
Exit;
end;
k:=0;
for i:=0 to i-j do
if(copy(s,i+1,j)=c)then
INC(k);
Result:=k;
end;
[1] [2] 下一页
|
|
