频道分类

delphi 检测是否包含字符

作者:admin 来源: 日期:2020/3/10 17:38:04 人气: 标签:

 
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 for 循环输出 a-z下一篇:没有资料