Changeset 11 for trunk/Units/UVCS.pas

Timestamp:

May 19, 2015, 11:33:02 PM (9 years ago)

Author:

chronos

Message:

• Added: Log form to show history of object. Implemented for Subversion partialy.

File:

• trunk/Units/UVCS.pas (modified) (6 diffs)

trunk/Units/UVCS.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil;
+  Classes, SysUtils, FileUtil, Contnrs;
 
 type
+
+  { TLogItem }
+
+  TLogItem = class
+    Author: string;
+    Actions: string;
+    Time: TDateTime;
+    Revision: string;
+    Messages: TStringList;
+    ChangedFiles: TStringList;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TLogList = class(TObjectList)
+
+  end;
 
   { TWorkingCopy }
@@ -20 +37 @@
   protected
     procedure ExecuteProcess(Command: string; Parameters: array of string); virtual;
+    function GetNext(var Text: string; Separator: string): string;
   public
+    ExecutionOutput: TStringList;
     procedure Checkout; virtual;
     procedure Update; virtual;
@@ -29 +48 @@
     procedure Refresh; virtual;
     procedure Add(FileName: string); virtual;
+    procedure GetLog(FileName: string; Log: TLogList); virtual;
+    constructor Create;
+    destructor Destroy; override;
     property RepositoryURL: string read FRepositoryURL write SetRepositoryURL;
     property Path: string read FPath write SetPath;
@@ -43 +65 @@
 uses
   UFormConsole;
+
+{ TLogItem }
+
+constructor TLogItem.Create;
+begin
+  Messages := TStringList.Create;
+  ChangedFiles := TStringList.Create;
+end;
+
+destructor TLogItem.Destroy;
+begin
+  Messages.Free;
+  ChangedFiles.Free;
+  inherited Destroy;
+end;
 
 { TWorkingCopy }
@@ -67 +104 @@
     else FormConsole.WorkingDir := '';
   FormConsole.ShowModal;
+  ExecutionOutput.Assign(FormConsole.Log);
+end;
+
+function TWorkingCopy.GetNext(var Text: string; Separator: string): string;
+begin
+  if Pos(Separator, Text) > 0 then begin
+    Result := Copy(Text, 1, Pos(Separator, Text) - 1);
+    Delete(Text, 1, Pos(Separator, Text) + Length(Separator));
+  end else begin
+    Result := Text;
+    Text := '';
+  end;
 end;
 
@@ -109 +158 @@
 end;
 
+procedure TWorkingCopy.GetLog(FileName: string; Log: TLogList);
+begin
+  Log.Clear;
+end;
+
+constructor TWorkingCopy.Create;
+begin
+  ExecutionOutput := TStringList.Create;
+  FPath := '';
+  FRepositoryURL := '';
+end;
+
+destructor TWorkingCopy.Destroy;
+begin
+  FreeAndNil(ExecutionOutput);
+  inherited Destroy;
+end;
+
 end.