Ver código fonte

* Patch from Werner Pamler to fix some errors in JSON export

Michaël Van Canneyt 3 anos atrás
pai
commit
a868a45ba9
1 arquivos alterados com 4 adições e 7 exclusões
  1. 4 7
      packages/fcl-db/src/export/fpsimplejsonexport.pp

+ 4 - 7
packages/fcl-db/src/export/fpsimplejsonexport.pp

@@ -222,13 +222,13 @@ Var
 
 
 begin
 begin
   if EF.Field.IsNull then
   if EF.Field.IsNull then
-    S:='NULL' // do not localize
+    S:='null' // do not localize
   else if EF.Field.DataType=ftBoolean then
   else if EF.Field.DataType=ftBoolean then
     begin
     begin
     If EF.FIeld.AsBoolean then
     If EF.FIeld.AsBoolean then
-      S:='True' // Do not localize
+      S:='true' // Do not localize
     else
     else
-      S:='False';// Do not localize
+      S:='false';// Do not localize
     end
     end
   else if EF.Field.DataType=ftFloat then
   else if EF.Field.DataType=ftFloat then
     Str(EF.FIeld.asFloat,S)
     Str(EF.FIeld.asFloat,S)
@@ -239,10 +239,7 @@ begin
   If FCF=cfObject then
   If FCF=cfObject then
     S:='"'+EF.ExportedName+'" : '+S;
     S:='"'+EF.ExportedName+'" : '+S;
   If (FCurrentRow<>'') then
   If (FCurrentRow<>'') then
-    if FCF=cfObject then
-      FCurrentRow:=FCurrentRow+'; '
-    else
-      FCurrentRow:=FCurrentRow+', ';
+    FCurrentRow:=FCurrentRow+', ';
   FCurrentRow:=FCurrentRow+S;
   FCurrentRow:=FCurrentRow+S;
 end;
 end;