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 时间转成大写

Delphi异常死亡进程的自动复活

Delphi indy防止假死

Delphi获取exe文件版本信息的函数

Delphi中三种延时方法

Delphi 开发64位应用程序使用windows api的注意事项

Delphi 64位汇编编程

Delphi图片base64编码

Delphi 去掉treeview水平滚动条

Delphi xe5记录android应用程序（日志输出）

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

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