Remove use of TRegex to identify identifiers. Using IsValidIdent inst…

…ead. #205

src/Sempare.Template.Lexer.pas

@@ -95,9 +95,6 @@     TPair = record
       Eof: Boolean;
       constructor Create(const AInput: char; const AEof: Boolean);
     end;
-  private
-    class var FIDRegex: TRegEx;
-    class constructor Create; overload;
   private
     FReader: TStreamReader;
     FNextToken: TQueue<ITemplateSymbol>;
@@ -193,11 +190,6 @@ constructor TTemplateLexer.Create(const AContext: ITemplateContext; const AStrea
   FAccumulator := TStringBuilder.Create;
 end;
 
-class constructor TTemplateLexer.Create;
-begin
-  FIDRegex := TRegEx.Create('^[a-zA-Z_][a-zA-Z_0-9]*$');
-end;
-
 destructor TTemplateLexer.Destroy;
 begin
   FNextToken.Free;
@@ -267,19 +259,14 @@ function TTemplateLexer.GetScriptToken: ITemplateSymbol;
       GetInput;
   end;
 
-  function IsValidId(const AId: string): Boolean;
-  begin
-    exit(FIDRegex.IsMatch(AId));
-  end;
-
   function ValueToken(const ASymbol: TTemplateSymbol): ITemplateSymbol;
   var
     LId: string;
     LPosition: IPosition;
   begin
     LId := FAccumulator.ToString;
     LPosition := MakePosition;
-    if (ASymbol = vsID) and not IsValidId(LId) then
+    if (ASymbol = vsID) and not IsValidIdent(LId) then
     begin
       RaiseErrorRes(LPosition, @SInvalidCharacterDetected);
     end;