频道分类

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

作者:admin 来源: 日期:2020/10/17 14:42:54 人气: 标签:

 
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;


上一篇:Delphi TrayIcon1如何把窗体关闭到系统托盘下一篇:没有资料