Changeset 380 for tools/dbc_export/DBCExport.pas

Timestamp:

Mar 11, 2010, 7:21:43 PM (15 years ago)

Author:

george

Message:

• Opraveno: Správně vylomítkování podřetězce SQL dotazu při volání exportu.

File:

• tools/dbc_export/DBCExport.pas (modified) (4 diffs)

tools/dbc_export/DBCExport.pas

@@ -81 +81 @@
   if HasOption('q', 'sql_query') then begin
     SQLquery := GetOptionValue('q', 'sql_query');
+    SQLquery := StringReplace(SQLquery, '\ ', ' ', [rfReplaceAll]);
+    SQLquery := StringReplace(SQLquery, '\`', '`', [rfReplaceAll]);
+    WriteLn(SQLquery);
   end;
 end;
@@ -197 +200 @@
           for X := 1 to Length(ColumnTypeDefinition) do begin
             if ColumnTypeDefinition[X] = 's' then begin
-              Text := DBRows.Data[IndexRowData - 1].Values['text' + IntToStr(I)];
+              Text := DBRows.Data[IndexRowData - 1].Values['Text' + IntToStr(I)];
               SetString(Y, X - 1, Text);
               I := I + 1;
@@ -219 +222 @@
     Count := DBRows.Count;
     for I := 1 to Count do begin
-      Entry := StrToInt(DBRows.Data[i - 1].Values['entry']);
+      Entry := StrToInt(DBRows.Data[I - 1].Values['Entry']);
 
       if (I = 127) then SetLength(IndexTable, Entry + 1);
@@ -238 +241 @@
   try
     for I := 0 to DBRows.Count - 1 do begin
-      if (StrToInt(DBRows.Data[i].Values['entry']) = Entry) then begin
+      if (StrToInt(DBRows.Data[i].Values['Entry']) = Entry) then begin
         Result := I;
         Exit;