delphi 字符或符号在字符串出现的次数

本文整理自网络，侵删。

 
function SymbolEntersCount(s: string; ch: char): integer;
var
i: integer;
begin
Result := 0;
if Trim(s) <> '' then
   for i := 1 to Length(s) do
     if s[i] = ch then
       inc(Result);
end;
 

相关阅读 >>

Delphi根据窗口句柄获取所在程序路径

rightstr 返回字符串右边指定个数的新字符(串)

Delphi webbrowser 滚动条的去除、边框去除

Delphi 实现卸载windows应用程序（类似360软件管家-卸载程序）

Delphi 递归获取窗口所有子窗口所以句柄

Delphi程序版本信息设置说明

Delphi 开发中遇到的dll问题思考及解决方法

Delphi获取系统默认的useragent的方法

Delphi 在 api 函数中使用 pchar 参数的几种方法

Delphi结构，字符串和指针

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 字符或符号在字符串出现的次数