Changeset 9 for trunk/Units/UVCS.pas

Timestamp:

May 18, 2015, 11:49:39 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.

File:

• trunk/Units/UVCS.pas (modified) (5 diffs)

trunk/Units/UVCS.pas

@@ -19 +19 @@
     procedure SetRepositoryURL(AValue: string);
   protected
-    procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
+    procedure ExecuteProcess(Command: string; Parameters: array of string); virtual;
   public
     procedure Checkout; virtual;
@@ -25 +25 @@
     procedure CleanUp; virtual;
     procedure Commit(Message: TStrings); virtual;
-    procedure Move; virtual;
+    procedure Move(Source, Dest: string); virtual;
     procedure Merge; virtual;
     procedure Refresh; virtual;
@@ -35 +35 @@
     Path: string;
   end;
+
 
 
@@ -57 +58 @@
 end;
 
-procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
+procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: array of string);
 begin
   FormConsole.Executable := Command;
-  FormConsole.Parameters.Assign(Parameters);
+  FormConsole.Parameters.Clear;
+  FormConsole.Parameters.AddStrings(Parameters);
   if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
     else FormConsole.WorkingDir := '';
@@ -86 +88 @@
 end;
 
-procedure TWorkingCopy.Move;
+procedure TWorkingCopy.Move(Source, Dest: string);
 begin