Changeset 414 for tools/dbc_export/DBCExport.pas

Timestamp:

Apr 3, 2010, 9:31:48 PM (15 years ago)

Author:

george

Message:

• Opraveno: Ve vytvářeném DBC souboru nebyla vůbec přepočtena nová velikost bloku řetězců.

File:

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

tools/dbc_export/DBCExport.pas

@@ -138 +138 @@
         Text := '';
         for X := 0 to Length(Cells[Y]) - 1 do
-         if VarIsStr(Cells[Y, X]) then Text := Text + Cells[Y, X] + ', '
+         if VarIsStr(Cells[Y, X]) then Text := Text + '"' + Cells[Y, X] + '", '
           else Text := Text + IntToStr(Cells[Y, X]) + ', ';
         WriteLn(Text);
@@ -158 +158 @@
         if ColumnTypeDefinition[I] = 's' then begin
           LoadColumnStrings(I - 1);
-          LastIndexStringColumns:=I;
+          LastIndexStringColumns := I;
         end;
     end else WriteLn('File ' + DBCFileName + ' not exists.');