fix: invalid JSON export from empty grid result

Refs #2618

Author: ansgarbecker

source/exportgrid.pas

@@ -1217,7 +1217,8 @@ procedure TfrmExportGrid.btnOKClick(Sender: TObject);
         tmp := '];' + CRLF;
       end;
       efJSON: begin
-        S.Size := S.Size - 1;
+        if NodeCount > 0 then
+          S.Size := S.Size - 1;
         tmp := sLineBreak + CodeIndent + ']' + sLineBreak + '}';
       end;
       else