Changeset 6 for trunk/Units/USubversion.pas

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

• trunk/Units/USubversion.pas (modified) (2 diffs)

trunk/Units/USubversion.pas

@@ -14 +14 @@
   TSubversion = class(TWorkingCopy)
   protected
-    procedure Execute(Command: string); override;
+    procedure Execute(Parameters: array of string);
   public
     procedure Checkout; override;
@@ -28 +28 @@
 { TSubversion }
 
-procedure TSubversion.Execute(Command: string);
+procedure TSubversion.Execute(Parameters: array of string);
+var
+  Params: TStringList;
 begin
-  inherited Execute('svn ' + Command);
+  Params := TStringList.Create;
+  try
+    Params.AddStrings(Parameters);
+    ExecuteProcess('svn', Params);
+  finally
+    Params.Free;
+  end;
 end;
 
 procedure TSubversion.Checkout;
 begin
-  Execute('checkout');
+  Execute(['checkout']);
 end;
 
 procedure TSubversion.Update;
 begin
-  Execute('update');
+  Execute(['update']);
 end;
 
 procedure TSubversion.CleanUp;
 begin
-  Execute('cleanup');
+  Execute(['cleanup']);
 end;
 
 procedure TSubversion.Commit;
 begin
-  Execute('commit');
+  Execute(['commit']);
 end;
 
 procedure TSubversion.Move;
 begin
-  Execute('move');
+  Execute(['move']);
 end;
 
 procedure TSubversion.Merge;
 begin
-  Execute('merge');
+  Execute(['merge']);
 end;