Changeset 6 for trunk/Units

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.

Location:

trunk/Units

Files:

• USubversion.pas (modified) (2 diffs)
• UVCS.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;
 

trunk/Units/UVCS.pas

@@ -17 +17 @@
     procedure SetPath(AValue: string);
   protected
-    procedure Execute(Command: string); virtual;
+    procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
   public
     procedure Checkout; virtual;
@@ -48 +48 @@
 end;
 
-procedure TWorkingCopy.Execute(Command: string);
+procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
 begin
-  FormConsole.Executable := 'svn';
-  FormConsole.Parameters.Add(Command);
+  FormConsole.Executable := Command;
+  FormConsole.Parameters.Assign(Parameters);
   FormConsole.WorkingDir := Path;
-  FormConsole.Perform;
+  FormConsole.ShowModal;
 end;