unit CnDelphi;

interface

uses
  Windows, SysUtils, CnWizMethodHook;

implementation

type
  TIsValidIdentFunc = function (const Ident: string): Boolean;

var
  OldProc: TIsValidIdentFunc;
  Hook: TCnMethodHook;

function CnIsValidIdent(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) and (Ident[1] < #$A1)) then
    Exit;

  for I := 2 to Length(Ident) do
    if not (Ident[I] in AlphaNumeric) and (Ident[I] < #$A1) then
      Exit;
  Result := True;
end;

initialization
  OldProc := TIsValidIdentFunc(GetBplMethodAddress(@IsValidIdent));
  Hook := TCnMethodHook.Create(@OldProc, @CnIsValidIdent);

finalization
  FreeAndNil(Hook);
  
end.