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 android调用授权管理打开通知监听服务

Delphi 系统服务和普通forms程序共存一体的实现

Delphi 用webbrowser给要访问的页面加上referer(来路)参数

Delphi 判断端口是否被使用

Delphi idhttp读取网页重定向

Delphi 压缩图片(bmp、jpg、png)

Delphi之屏幕和窗口的坐标

Delphi判断电脑是否安装了excel

Delphi 把pf8bit位图变换成pf24bit位图

Delphi 的字符及字符串 - char、ansichar、widechar、pchar、pansichar、pwidechar

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

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