delphi 检测是否包含字符

本文整理自网络，侵删。

 
function CharInString (S: string; Ch: Char): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := Low (S) to High (S) do
    if (S[I]) = Ch then
    begin
      Result := True;
      Exit;
    end;
end;

function CharInString2 (S: string; Ch: Char): Boolean;
var
  I: Integer;
begin
  Result := False;
  for I := Low (S) to High (S) do
    if (S[I]) = Ch then
      Exit (True);
end;
 

相关阅读 >>

Delphi中控制扫描仪

Delphi 完全自定义窗体风格的实现

Delphi idhttp友好错误信息的捕获

Delphi-改进获取文件md5 hash方法

Delphi判断一个字符是否为汉字的最佳方法

Delphi获取身份证号码验证码算法

Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改

Delphi中如何提高listview删除item的速度

Delphi 查找目录下文件（多文件查找）

Delphi webbrowser通过遍历id查找元素是否存在

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

转载请注明出处：木庄网络博客 » delphi 检测是否包含字符