diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas index a54e175..4fb8c96 100644 --- a/Source/SimpleParser/SimpleParser.pas +++ b/Source/SimpleParser/SimpleParser.pas @@ -5014,7 +5014,11 @@ procedure TmwSimplePasPar.TypeSimple; begin Expected(ptLower); TypeArgs; - Expected(ptGreater); + // workaround for VAR List: TList= nil; + if TokenID = ptGreaterEqual then + Lexer.RunPos := Lexer.RunPos - 1 + else + Expected(ptGreater); end; end; diff --git a/Test/Snippets/genericvarinitialvalue.pas b/Test/Snippets/genericvarinitialvalue.pas new file mode 100644 index 0000000..643c0a4 --- /dev/null +++ b/Test/Snippets/genericvarinitialvalue.pas @@ -0,0 +1,9 @@ +unit genericvarinitialvalue; + +interface + +var MyList : TList= nil; + +implementation + +end.