delphi源码笔记1

最新推荐文章于 2024-10-17 12:16:48 发布

iteye_14253

最新推荐文章于 2024-10-17 12:16:48 发布

阅读量219

点赞数

分类专栏： Delphi 文章标签： Delphi

Delphi 专栏收录该内容

25 篇文章

订阅专栏

function IsValidIdent(const Ident: string): Boolean;
const
  Alpha = ['A'..'Z', 'a'..'z', '_'];
  AlphaNumeric = Alpha + ['0'..'9'];
var
  I: Integer;
begin
  Result := False;
  if (Length(Ident) = 0) or not (Ident[1] in Alpha) then Exit;
  for I := 2 to Length(Ident) do if not (Ident[I] in AlphaNumeric) then Exit;
  Result := True;
end;

这段代码在SysUtils单元中，就是验证标识符是否合法的，第一个字符必须为字母或者下划线，其它字符则可以是字符、数字或者下划线，熟悉吧 :D
PS：用delphi写代码也有一年了，打算从现在开始好好研究下delphi的源代码...