Changeset 24 for trunk/Backends/Git/Git.pas

Timestamp:

Apr 5, 2025, 9:45:07 PM (12 days ago)

Author:

chronos

Message:

• Fixed: Test cases executed with FormTests form from Common package.

File:

• trunk/Backends/Git/Git.pas (modified) (3 diffs)

trunk/Backends/Git/Git.pas

@@ -25 +25 @@
     procedure Update; override;
     procedure CleanUp; override;
-    procedure Commit(Message: TStrings); override;
+    procedure Commit(Message: string); override;
     procedure Move(Source, Dest: string); override;
     procedure Merge; override;
     procedure Add(FileName: string); override;
-    procedure GetLog(FileName: string; Log: TLogList); override;
+    procedure GetLog(FileName: string; Log: TLogItems); override;
   end;
 
@@ -93 +93 @@
 end;
 
-procedure TGit.Commit(Message: TStrings);
+procedure TGit.Commit(Message: string);
 begin
   Execute(['config', 'user.name "' + UserName + '"']);
   Execute(['config', 'user.email "' + Email + '"']);
-  Execute(['commit', '-m "' + Message.Text + '"']);
+  Execute(['commit', '-m "' + Message + '"']);
 end;
 
@@ -115 +115 @@
 end;
 
-procedure TGit.GetLog(FileName: string; Log: TLogList);
+procedure TGit.GetLog(FileName: string; Log: TLogItems);
 begin
 end;