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中使用spcomm来实现串口通讯

Delphi webbrowser1使用进度条查看浏览器状态

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi 文件/流的加密解密方法

Delphi webbrowser用记事本查看源代码

Delphi 用updateresource修改exe文件图标(已修正)

Delphi generics collections tdictionary 用法

Delphi下遍历指定目录下指定类型文件的函数

Delphi dataset和json互转函数

Delphi 获取本地网络连接

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

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