Changeset 338 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 10:48:45 AM (15 years ago)

Author:

george

Message:

• Přidáno: Volba -d pro zobrazení dat DBC souboru.

File:

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

tools/dbc_export/DBCExport.pas

@@ -22 +22 @@
     NewDBCFileName: string;
     ColumnTypeDefinition: string;
+    DisplayData: Boolean;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -50 +51 @@
   if HasOption('c', 'coltypedef') then begin
     ColumnTypeDefinition := GetOptionValue('c', 'coltypedef');
+  end;
+  if HasOption('d', 'display') then begin
+    DisplayData := True;
   end;
 
@@ -95 +99 @@
   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');
+  WriteLn('  -c --coltypedef  DBC column type definition string (u - uint32, s - string)');
+  WriteLn('  -d --display     Display DBC data');
 end;
 
 procedure TDBCExport.ShowDBC;
 var
-  //X, Y: Integer;
-  //Text: string;
+  X, Y: Integer;
+  Text: string;
   I: Integer;
 begin
@@ -115 +119 @@
           LoadColumnStrings(I - 1);
 
-      (*for Y := 0 to Length(Cells) - 1 do begin
+      // Display DBC data
+      if DisplayData then
+      for Y := 0 to Length(Cells) - 1 do begin
         Text := '';
         for X := 0 to Length(Cells[Y]) - 1 do
@@ -122 +128 @@
         WriteLn(Text);
       end;
-      *)
+
       WriteLn('Save');
       SaveToFile(NewDBCFileName);