DELPHI里面判断一个字符串在另一个字符串中出现的次数??

Question

DELPHI里面判断一个字符串在另一个字符串中出现的次数??
有没有直接的函数??

Answer 1

function SubStrConut(mStr: string; mSub: string): Integer;
{ 返回子字符串出现的次数 }
begin
  Result :=
    (Length(mStr) - Length(StringReplace(mStr, mSub, '', [rfReplaceAll]))) div
    Length(mSub);
end; { SubStrConut }procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(SubStrConut(Edit1.Text, Edit2.Text));
end;

Answer 2

to: zswang(伴水清清)(专家门诊清洁工) :厉害!
    不过用POS也可以,不过没伴水的效率高...

Answer 3

zswang(伴水清清）
能解释一下StringReplace函数里的[rfReplaceAll]是什么意思的哦。
谢谢

Answer 4

有直接的函数，察看help吧，我用过，但忘了，楼上说没有的请不要误人子弟