有没有直接统计一个字符在一个字符串中的个数的函数?

Question

有没有直接统计一个字符在一个字符串中的个数的函数?

Answer 1

function NumChar(const ch:char;stringStr:string):integer;
var i:integer;
begin
  for i:=1 to Lengh(stringStr) do
  begin
    if ch=string[i] then
      i:=i+1;//Inc(i);
  end;
  result:=i;
end;

Answer 2

function NumChar(const ch:char;stringStr:string):integer;
var i,n:integer;
begin
  n:=0;
  for i:=1 to Lengh(stringStr) do
  begin
    if ch=string[i] then
      n:=n+1;//Inc(i);
  end;
  result:=n;
end;

Answer 3

function NumChar(const ch:char;stringStr:string):integer;
var intI:integer;
begin
  for intI:=1 to Lengh(stringStr) do
  begin
    if ch=stringStr[i] then//已更改
      intI:=intI+1;//Inc(intI);
  end;
  result:=intI;
end;

Answer 4

function NumChar(const ch:char;stringStr:string):integer;
var strList:TStringList;
begin
  strList := TStringList.Create;
  try
    strList.Delimeter := ch;
    strList.DelimeterText := stringStr;
    result:=strList.Count - 1;
  finally
    strList.free;
  end;
end;

Answer 5

给你个猛点的统计一个字符串在一个字符串中的个数
Function DelCtrlChar(var str: string;AChar : string): Integer;
var
 i : Integer;
 tmp_int : Integer;
begin
  i := pos(AChar,str);
  while i > 0 do
    begin
      Delete(str,i,length(AChar));
      i :=pos(AChar,str);
      inc(tmp_int);
    end;
  result := tmp_int;
end;