fcl-js: comments

packages/fcl-js/src/jstree.pp

@@ -926,7 +926,8 @@ Type
 
   TJSExportNameElement = Class(TJSAliasElement);
 
-  { TJSExportNameElements - NamedExports property of TJSExportStatement }
+  { TJSExportNameElements - NamedExports property of TJSExportStatement
+    e.g. 'Name' or 'Name as Alias'}
 
   TJSExportNameElements = Class(TJSAliasElements)
   private
@@ -936,7 +937,9 @@ Type
     Property ExportedNames[AIndex : Integer] : TJSExportNameElement Read GetE ;default;
   end;
 
-  { TJSExportStatement }
+  { TJSExportStatement - e.g. 'export Declaration' }
+  // 'export * as NameSpaceExport from ModuleName' NameSpaceExport and ModuleName are optional
+  // 'export { ExportNames[1], ExportNames[2], ... } from ModuleName' ModuleName is optional
 
   TJSExportStatement = class(TJSElement)
   Private

packages/fcl-js/src/jswriter.pp

@@ -1732,22 +1732,22 @@ begin
   if El.IsDefault then
     Write('default ');
   if assigned(El.Declaration) then
-    WriteJS(EL.Declaration)
+    WriteJS(El.Declaration)
   else if (El.NameSpaceExport<>'') then
     begin
     if El.NameSpaceExport<>'*' then
       Write('* as '+El.NameSpaceExport)
     else
       Write('*');
-    if EL.ModuleName<>'' then
-      Write(' from "'+EL.ModuleName+'"');
+    if El.ModuleName<>'' then
+      Write(' from "'+El.ModuleName+'"');
     end
   else if El.HaveExportNames then
     begin
     Write('{ ');
-    For I:=0 to EL.ExportNames.Count-1 do
+    For I:=0 to El.ExportNames.Count-1 do
       begin
-      N:=EL.ExportNames[i];
+      N:=El.ExportNames[i];
       if I>0 then
         Write(', ');
       Write(N.Name+' ');