Changeset 13 for trunk/Forms/UFormConsole.pas

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

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

trunk/Forms/UFormConsole.pas

@@ -31 +31 @@
     Parameters: TStringList;
     WorkingDir: string;
-    Environment: string;
+    EnvironmentVariables: TStringList;
     Aborted: Boolean;
     Log: TStringList;
@@ -50 +50 @@
   Parameters := TStringList.Create;
   Log := TStringList.Create;
+  EnvironmentVariables := TStringList.Create;
 end;
 
 procedure TFormConsole.FormDestroy(Sender: TObject);
 begin
+  EnvironmentVariables.Free;
   Log.Free;
   Parameters.Free;
@@ -101 +103 @@
     if WorkingDir <> '' then
       Process.CurrentDirectory := WorkingDir;
-    //WorkingDir := '';
-    if Environment <> '' then
-      Process.Environment.Text := Environment;
-    Environment := '';
+    Process.Environment.Assign(EnvironmentVariables);
+    Process.Parameters.Assign(Parameters);
     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