fix: forgotten files in c01a439

ansgarbecker · ansgarbecker · commit 8098296ea32d · 2026-02-12T19:04:29.000+01:00
Refs #2250
diff --git a/source/loaddata.pas b/source/loaddata.pas
@@ -527,17 +527,17 @@ procedure Tloaddataform.ClientParse(Sender: TObject);
       for i:=0 to chkListColumns.Items.Count-1 do
       begin
         if chkListColumns.Checked[i] then  // column was already counted
-        Inc(ValuesCounted);                // increase number of counted columns
+          Inc(ValuesCounted);              // increase number of counted columns
         if ValuesCounted = ValueCount then // did we count all included columns up to the current column?
-        Break;
+          Break;
         Inc(ColumnIndex);                  // if all columns (until the current column) are checked, ColumnIndex is ValueCount-1, like before this patch
       end;
 
       if Value <> 'NULL' then begin
         if chkLocalNumbers.Checked and (FColumns[ColumnIndex].DataType.Category in [dtcInteger, dtcReal]) then
           Value := UnformatNumber(Value)
         else
-          Value := FConnection.EscapeString(Value);
+          Value := FConnection.EscapeString(Value, FColumns[ColumnIndex].DataType);
       end;
       SQL := SQL + Value + ', ';
     end;
diff --git a/source/tabletools.pas b/source/tabletools.pas
@@ -2103,7 +2103,7 @@ procedure TfrmTableTools.DoExport(DBObj: TDBObject);
                   else
                     Row := Row + Quoter.EscapeString('');
                 end;
-                else Row := Row + Quoter.EscapeString(Data.Col(i));
+                else Row := Row + Quoter.EscapeString(Data.Col(i), Data.DataType(i));
               end;
               Row := Row + ', ';
             end;
