Changeset 23 for trunk/Units/Project.pas

Timestamp:

Apr 4, 2025, 9:22:05 AM (4 weeks ago)

Author:

chronos

Message:

• Modified: All unit renamed to names without U prefix.
• Modified: Removed global form variables.
• Modified: Code cleanup.

File:

• trunk/Units/Project.pas (moved) (moved from trunk/Units/UProject.pas ) (5 diffs)

trunk/Units/Project.pas ¶

@@ -1 @@
-unit UProject;
+unit Project;
 
 interface
 
 uses
-  Classes, SysUtils, UVCS, UBackend, Contnrs, DOM, XMLRead, XMLWrite, XML,
-  LazFileUtils;
+  Classes, SysUtils, VCS, Backend, Generics.Collections, DOM, XMLRead, XMLWrite,
+  XML, LazFileUtils;
 
 type
@@ -34 +34 @@
   { TProjects }
 
-  TProjects = class(TObjectList)
+  TProjects = class(TObjectList<TProject>)
     procedure LoadXMLNode(Node: TDOMNode);
     procedure SaveXMLNode(Node: TDOMNode);
@@ -84 +84 @@
 end;
 
-
 { TProjectGroup }
 
@@ -94 +93 @@
 destructor TProjectGroup.Destroy;
 begin
-  Projects.Free;
-  inherited Destroy;
+  FreeAndNil(Projects);
+  inherited;
 end;
 
@@ -190 +189 @@
 destructor TProject.Destroy;
 begin
-  WorkingCopy.Free;
-  Repository.Free;
-  inherited Destroy;
+  FreeAndNil(WorkingCopy);
+  FreeAndNil(Repository);
+  inherited;
 end;