Changeset 447 for trunk/Packages/Common/UFindFile.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/Packages/Common/UFindFile.pas (modified) (7 diffs)

trunk/Packages/Common/UFindFile.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.
 
@@ -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;
+  S.Free;
   inherited Destroy;
 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