哈囉...各位高手~ 想請教一下... 是否有函數可以用來得知某一字串出現於另一字串中的次數 例如:A字串為  hkfahgiaopifahdavkdhfauewoauri       那我想知道是否有函數可以知道B字串"fa"      在A字串中出現的次數~ 謝謝囉~

自己寫一個 strcount 試試看. 合不合用!    

    function strcount(str, substr: string): integer;
var
  f1: integer;
begin
  f1 := 1;
  Result := 0;
  while true do
  begin
    f1 := PosEx(substr, str, f1);
    if f1 = 0 then
    begin
      break;
    end
    else
    begin
      f1 := f1   1;
      Result := Result   1;
    end;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: string;
begin
  a:='hkfahgiaopifahdavkdhfauewoauri';
  b:='fa';
  ShowMessage(IntToStr(strcount(a,b)));
end;