fix: generate missing values for geometry columns

ansgarbecker · ansgarbecker · commit eb1b5eac5910 · 2025-10-28T18:38:33.000+01:00
Refs #2009
diff --git a/source/tabletools.pas b/source/tabletools.pas
@@ -2295,6 +2295,12 @@ procedure TfrmTableTools.DoGenerateData(DBObj: TDBObject);
   TextVal: String;
   BinVal: String;
   NumRows, NullsAmount: Int64;
+
+  function RS: String;
+  begin
+    // return a Random integer as String
+    Result := RandomRange(1, 100).ToString;
+  end;
 begin
   // Generate rows
   if not (DBObj.NodeType in [lntTable, lntView]) then begin
@@ -2440,7 +2446,20 @@ procedure TfrmTableTools.DoGenerateData(DBObj: TDBObject);
           Values.Add(Col.Connection.EscapeString(TextVal));
         end;
 
-        dtcSpatial: ;
+        dtcSpatial: begin
+          TextVal := Col.Connection.EscapeString('');
+          case Col.DataType.Index of
+            dbdtPoint: TextVal := 'POINT('+RS+', '+RS+')';
+            dbdtMultipoint: TextVal := 'MULTIPOINT(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+'))';
+            dbdtLinestring: TextVal := 'LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+'))';
+            dbdtMultilinestring: TextVal := 'MULTILINESTRING(LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')), LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')))';
+            dbdtPolygon: TextVal := 'POLYGON(LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')), LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')))';
+            dbdtMultipolygon: TextVal := 'MULTIPOLYGON(POLYGON(LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')), LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+'))))';
+            dbdtGeometry: TextVal := 'POINT('+RS+', '+RS+')';
+            dbdtGeometrycollection: TextVal := 'GEOMETRYCOLLECTION(POINT('+RS+', '+RS+'), LINESTRING(POINT('+RS+', '+RS+'), POINT('+RS+', '+RS+')))';
+          end;
+          Values.Add(TextVal);
+        end;
 
         dtcOther: begin
           case Col.DataType.Index of
