Changeset 337 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 10:43:58 AM (15 years ago)

Author:

george

Message:

• Přidáno: Parametr pro určení typů sloupců a následné načtení textů pro řetězcové sloupce.

File:

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

tools/dbc_export/DBCExport.pas

@@ -21 +21 @@
     DBCFileName: string;
     NewDBCFileName: string;
+    ColumnTypeDefinition: string;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -30 +31 @@
 
 procedure TDBCExport.DoRun;
-var
-  ErrorMsg: String;
 begin
-  // Quick check parameters
-  //ErrorMsg := CheckOptions('h', 'help');
-  //if ErrorMsg <> '' then begin
-  //  ShowException(Exception.Create(ErrorMsg));
-  //  Halt;
-  //end;
-
   // Parse parameters
   if HasOption('h', 'help') then begin
@@ -55 +47 @@
   if HasOption('n', 'newfile') then begin
     NewDBCFileName := GetOptionValue('n', 'newfile');
+  end;
+  if HasOption('c', 'coltypedef') then begin
+    ColumnTypeDefinition := GetOptionValue('c', 'coltypedef');
   end;
 
@@ -93 +88 @@
 begin
   WriteLn('Usage: ', ExtractFileName(ExeName), ' [options]');
-  WriteLn('  -h --help      Show this help');
-  WriteLn('  -u --user      Database user name');
-  WriteLn('  -p --password  Database password name');
-  WriteLn('  -s --schema    Database schema name');
-  WriteLn('  -t --host      Database host name');
-  WriteLn('  -f --file      Source DBC file name');
-  WriteLn('  -n --newfile   New created DBC file name');
+  WriteLn('  -h --help        Show this help');
+  WriteLn('  -u --user        Database user name');
+  WriteLn('  -p --password    Database password name');
+  WriteLn('  -s --schema      Database schema name');
+  WriteLn('  -t --host        Database host name');
+  WriteLn('  -f --file        Source DBC file name');
+  WriteLn('  -n --newfile     New created DBC file name');
+  WriteLn('  -c --coltypedef  DBC column type definition string');
+  WriteLn('                     u - uint32, s - string');
 end;
 
 procedure TDBCExport.ShowDBC;
 var
-  X, Y: Integer;
-  Text: string;
+  //X, Y: Integer;
+  //Text: string;
+  I: Integer;
 begin
   DBC := TDBC.Create;
@@ -111 +109 @@
     if FileExists(DBCFileName) then begin
       LoadFromFile(DBCFileName);
-      //LoadColumnStrings(1);
-      //LoadColumnStrings(127);
+
+      // Load strings for string columns
+      for I := 1 to Length(ColumnTypeDefinition) do
+        if ColumnTypeDefinition[I] = 's' then
+          LoadColumnStrings(I - 1);
+
       (*for Y := 0 to Length(Cells) - 1 do begin
         Text := '';