Changeset 5 for trunk/Units

Timestamp:

Sep 1, 2014, 7:26:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Form for console window. Working copy actions will call command line tool to perform operation.

Location:

trunk/Units

Files:

• USubversion.pas (modified) (2 diffs)
• UVCS.pas (modified) (3 diffs)

trunk/Units/USubversion.pas

@@ -13 +13 @@
 
   TSubversion = class(TWorkingCopy)
+  protected
+    procedure Execute(Command: string); override;
+  public
     procedure Checkout; override;
     procedure Update; override;
@@ -25 +28 @@
 { TSubversion }
 
+procedure TSubversion.Execute(Command: string);
+begin
+  inherited Execute('svn ' + Command);
+end;
+
 procedure TSubversion.Checkout;
 begin
-
+  Execute('checkout');
 end;
 
 procedure TSubversion.Update;
 begin
-
+  Execute('update');
 end;
 
 procedure TSubversion.CleanUp;
 begin
-
+  Execute('cleanup');
 end;
 
 procedure TSubversion.Commit;
 begin
-
+  Execute('commit');
 end;
 
 procedure TSubversion.Move;
 begin
-
+  Execute('move');
 end;
 
 procedure TSubversion.Merge;
 begin
-
+  Execute('merge');
 end;
 

trunk/Units/UVCS.pas

@@ -16 +16 @@
     FPath: string;
     procedure SetPath(AValue: string);
+  protected
+    procedure Execute(Command: string); virtual;
   public
     procedure Checkout; virtual;
@@ -34 +36 @@
 implementation
 
+uses
+  UFormConsole;
 
 { TWorkingCopy }
@@ -39 +43 @@
 procedure TWorkingCopy.SetPath(AValue: string);
 begin
-  if FPath=AValue then Exit;
+  if FPath = AValue then Exit;
   FPath := AValue;
   Refresh;
+end;
+
+procedure TWorkingCopy.Execute(Command: string);
+begin
+  FormConsole.Executable := 'svn';
+  FormConsole.Parameters.Add(Command);
+  FormConsole.WorkingDir := Path;
+  FormConsole.Perform;
 end;