Changeset 339 for tools/dbc_export/DBCExport.pas

Timestamp:

Feb 27, 2010, 2:57:14 PM (15 years ago)

Author:

george

Message:

• Upraveno: Oddělení zpracování parametrů volání do samostatné metody.

File:

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

tools/dbc_export/DBCExport.pas

@@ -14 +14 @@
   { TDBCExport }
   TDBCExport = class(TCustomApplication)
+  private
+    procedure ParseParameters;
   protected
     procedure DoRun; override;
@@ -31 +33 @@
 { TDBCExport }
 
-procedure TDBCExport.DoRun;
+procedure TDBCExport.ParseParameters;
 begin
-  // Parse parameters
   if HasOption('h', 'help') then begin
     WriteHelp;
@@ -68 +69 @@
     Database.Hostname := GetOptionValue('t', 'host');
   end else Database.Hostname := 'localhost';
+end;
 
-
+procedure TDBCExport.DoRun;
+begin
+  ParseParameters;
   ShowDBC;
 
@@ -80 +84 @@
   inherited Create(TheOwner);
   StopOnException := True;
-  Database := TSqlDatabase.Create;;
+  Database := TSqlDatabase.Create;
 end;
 
@@ -129 +133 @@
       end;
 
-      WriteLn('Save');
       SaveToFile(NewDBCFileName);
     end else WriteLn('File ' + DBCFileName + ' not exists.');
@@ -139 +142 @@
   Application: TDBCExport;
 
-{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
+{$IFDEF WINDOWS}{$R DBCExport.rc}{$ENDIF}
 
 {$R DBCExport.res}