Changeset 30 for trunk/Packages/Common/FindFile.pas

Timestamp:

Jun 28, 2024, 11:08:43 PM (3 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

File:

• trunk/Packages/Common/FindFile.pas (moved) (moved from trunk/Packages/Common/UFindFile.pas ) (3 diffs)

trunk/Packages/Common/FindFile.pas

@@ -19 +19 @@
 }
 
-unit UFindFile;
+unit FindFile;
 
 interface
@@ -75 +75 @@
 constructor TFindFile.Create(AOwner: TComponent);
 begin
-  inherited Create(AOwner);
+  inherited;
   Path := IncludeTrailingBackslash(UTF8Encode(GetCurrentDir));
   FileMask := FilterAll;
@@ -143 +143 @@
     SysUtils.FindClose(Rec);
   end;
-end; 
+end;
 
 end.
-