delphi源码笔记1

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