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

Timestamp:

May 30, 2023, 11:31:10 AM (18 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.

File:

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

trunk/Packages/Common/FindFile.pas

@@ -6 +6 @@
 Tired of using FindFirst, Next and Close?
 Come see how to encapsulate all those functions
-in A Single "find-files-recursively" component.
+in a single "find-files-recursively" component.
 It's easy to use, free and with code.
 
@@ -19 +19 @@
 }
 
-unit UFindFile;
+unit FindFile;
 
 interface
@@ -34 +34 @@
   TFindFile = class(TComponent)
   private
-    S : TStringList;
-    fSubFolder : Boolean;
+    s : TStringList;
+    fSubFolder : boolean;
     fAttr: TFileAttrib;
     fPath : string;
@@ -47 +47 @@
   published
     property FileAttr: TFileAttrib read fAttr write fAttr;
-    property InSubFolders : Boolean read fSubFolder write fSubFolder;
+    property InSubFolders : boolean read fSubFolder write fSubFolder;
     property Path : string read fPath write SetPath;
     property FileMask : string read fFileMask write fFileMask ;
@@ -79 +79 @@
   FileMask := FilterAll;
   FileAttr := [ffaAnyFile];
-  S := TStringList.Create;
+  s := TStringList.Create;
 end;
 
 destructor TFindFile.Destroy;
 begin
-  S.Free;
-  inherited Destroy;
+  s.Free;
+  inherited;
 end;
 
@@ -101 +101 @@
 function TFindFile.SearchForFiles: TStringList;
 begin
-  S.Clear;
+  s.Clear;
   try
     FileSearch(Path);
   finally
-    Result := S;
+    Result := s;
   end;
 end;
@@ -111 +111 @@
 procedure TFindFile.FileSearch(const InPath : string);
 var Rec  : TSearchRec;
-    Attr : Integer;
+    Attr : integer;
 begin
   Attr := 0;
@@ -125 +125 @@
   try
     repeat
-      S.Add(inPath + Rec.Name);
+      s.Add(inPath + Rec.Name);
     until SysUtils.FindNext(Rec) <> 0;
   finally
@@ -143 +143 @@
     SysUtils.FindClose(Rec);
   end;
-end; 
+end;
 
 end.
-