Changeset 8 for trunk/Forms/UFormConsole.pas

Timestamp:

May 18, 2015, 12:15:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

File:

• trunk/Forms/UFormConsole.pas (modified) (2 diffs)

trunk/Forms/UFormConsole.pas

@@ -92 +92 @@
   Line: string;
   CommandLine: string;
+  I: Integer;
 begin
   Text := '';
@@ -104 +105 @@
       Process.Environment.Text := Environment;
     Environment := '';
-    //Process.Executable := Executable;
-    //Process.Parameters.Assign(Parameters);
-    Process.CommandLine := Executable + ' ' + Parameters.Text;
+    Process.Executable := Executable;
+    Process.Parameters.Assign(Parameters);
+    //for I := 0 to Process.Parameters.Count - 1 do
+    //  ShowMessage('"' + Process.Parameters[I] + '"');
+    //Process.CommandLine := Executable + ' checkout http://svn.zdechov.net/svn/xtactics /home/chronos/Smazat/svn3';
+    //Process.Parameters.Clear;
+    //Process.Parameters.Add('checkout');
+    //Process.Parameters.Add('http://svn.zdechov.net/svn/xtactics');
+    //Process.Parameters.Add('/home/chronos/Smazat/svn3');
+    //Process.Parameters.Add('checkout');
+    //Process.Parameters.Add('dasd');;
+    //Process.CommandLine := Executable + ' ' + Parameters.Text;
     CommandLine := Executable + ' ' + StringReplace(Parameters.Text, LineEnding, ' ', [rfReplaceAll]);
     if CommandLine[Length(CommandLine)] = LineEnding then