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窗口显示于parent控件上

Delphi二分查找算法(预排序数组的查找)

Delphi 简单的截图代码

Delphi 简单播放mp3

Delphi 解决idhttp下载数据时程序无响应的问题

Delphi 取得固定长度的随机字符串

Delphi 键盘钩子的简单应用

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi 磁盘类型 getdrivetype

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

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