如何在程序中判断一个字符串是否是一个合法的标志符？然后用来作为一个组件的name属性

Question

如果不合法的话，将他赋值给一个组件的name属性会出现错误！

Answer 1

sysunit单元有个函数IsValidIdent可以用来判断的
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;