* patch from Dmitry for "file of integer" like syntax, mantis 16673

git-svn-id: trunk@15729 -

packages/fcl-passrc/src/pparser.pp

@@ -490,6 +490,7 @@ begin
     tkFile:
       begin
         Result := TPasFileType(CreateElement(TPasFileType, '', Parent));
+        ParseFileType(TPasFileType(Result));
       end;
     tkArray:
       begin