Changeset 60 for trunk/Packages/Kernel/Kernel.FileSystem.pas

Timestamp:

Apr 7, 2024, 11:26:09 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Packages/Kernel/Kernel.FileSystem.pas (moved) (moved from trunk/Packages/Kernel/UFileSystem.pas ) (4 diffs)

trunk/Packages/Kernel/Kernel.FileSystem.pas

@@ -1 @@
-unit UFileSystem;
-
-{$mode delphi}
+unit Kernel.FileSystem;
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs, UList;
+  Classes, SysUtils, Kernel.List;
 
 type
@@ -20 +18 @@
 
   TDirectory = class(TFileSystemObject)
-    Items: TNamedObjectList<TFileSystemObject>;
+    Items: TNamedObjects<TFileSystemObject>;
     constructor Create;
     destructor Destroy; override;
@@ -34 +32 @@
 
   TFileSystemClass = class of TFileSystem;
+
 
 implementation
@@ -54 +53 @@
 constructor TDirectory.Create;
 begin
-  Items := TNamedObjectList<TFileSystemObject>.Create;
+  Items := TNamedObjects<TFileSystemObject>.Create;
 end;
 
 destructor TDirectory.Destroy;
 begin
-  Items.Free;
-  inherited Destroy;
+  FreeAndNil(Items);
+  inherited;
 end;