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读写firebird二进制数据

Delphi xe5 android应用程序获取电池信息

Delphi与汇编杂谈

Delphi png异形窗口

Delphi xe 枚举指定目录及子目录下的所有文件

Delphi 如何从url提取文件名？

Delphi 获取计算机已运行时间

Delphi html转义

Delphi登陆验证方法

Delphi gdi+ 实现简单画图

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

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