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

Timestamp:

Sep 10, 2022, 6:54:43 PM (20 months ago)

Author:

chronos

Message:

• Modified: CoolTranslator replaced by Common package.
• Modified: Update common package.

File:

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

trunk/Packages/Common/UFindFile.pas

@@ -24 +24 @@
 
 uses
-  SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl;
+  SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
 type
@@ -35 +35 @@
   private
     s : TStringList;
-
     fSubFolder : boolean;
     fAttr: TFileAttrib;
     fPath : string;
     fFileMask : string;
-
     procedure SetPath(Value: string);
     procedure FileSearch(const inPath : string);
@@ -46 +44 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-
     function SearchForFiles: TStringList;
   published
@@ -59 +56 @@
   FilterAll = '*.*';
 {$ENDIF}
-{$IFDEF LINUX}
+{$IFDEF UNIX}
   FilterAll = '*';
 {$ENDIF}
 
 procedure Register;
+
 
 implementation
@@ -87 +85 @@
 begin
   s.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -117 +115 @@
   Attr := 0;
   if ffaReadOnly in FileAttr then Attr := Attr + faReadOnly;
-  if ffaHidden in FileAttr then Attr := Attr + faHidden;
-  if ffaSysFile in FileAttr then Attr := Attr + faSysFile;
-  if ffaVolumeID in FileAttr then Attr := Attr + faVolumeID;
+  if ffaHidden in FileAttr then Attr := Attr + 2; //faHidden; use constant to avoid platform warning
+  if ffaSysFile in FileAttr then Attr := Attr + 4; //faSysFile; use constant to avoid platform warning
+  // Deprecated: if ffaVolumeID in FileAttr then Attr := Attr + faVolumeID;
   if ffaDirectory in FileAttr then Attr := Attr + faDirectory;
   if ffaArchive in FileAttr then Attr := Attr + faArchive;
   if ffaAnyFile in FileAttr then Attr := Attr + faAnyFile;
 
-  if SysUtils.FindFirst(UTF8Decode(inPath + FileMask), Attr, Rec) = 0 then
+  if SysUtils.FindFirst(inPath + FileMask, Attr, Rec) = 0 then
   try
     repeat
-      s.Add(inPath + UTF8Encode(Rec.Name));
+      s.Add(inPath + Rec.Name);
     until SysUtils.FindNext(Rec) <> 0;
   finally
@@ -135 +133 @@
   If not InSubFolders then Exit;
 
-  if SysUtils.FindFirst(UTF8Decode(inPath + FilterAll), faDirectory, Rec) = 0 then
+  if SysUtils.FindFirst(inPath + FilterAll, faDirectory, Rec) = 0 then
   try
     repeat
       if ((Rec.Attr and faDirectory) > 0) and (Rec.Name <> '.')
       and (Rec.Name <> '..') then
-        FileSearch(IncludeTrailingBackslash(inPath + UTF8Encode(Rec.Name)));
+        FileSearch(IncludeTrailingBackslash(inPath + Rec.Name));
     until SysUtils.FindNext(Rec) <> 0;
   finally