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 api 做的 serversocket 例子

Delphi 如何把程序钉到windows7任务栏(修正版)

Delphi 百万次重复调用字符分割函数，不耗内存用法

Delphi 递归获取窗口所有子窗口所以句柄

Delphi strlenwide 汇编统计字符串长度

Delphi 过滤字符串首位特殊符号

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi cef4Delphi 浏览器事件

Delphi文件操作所涉及的一些函数 附例子

createremotethread远程注入例子

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

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