Changeset 31 for FindFile/UFindFile.pas

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• FindFile/UFindFile.pas (modified) (2 diffs)

FindFile/UFindFile.pas

@@ -27 +27 @@
 
 type
+  EDirNotFound = class(Exception);
+
   TFileAttrKind = (ffaReadOnly, ffaHidden, ffaSysFile, ffaVolumeID, ffaDirectory, ffaArchive, ffaAnyFile);
   TFileAttr = set of TFileAttrKind;
@@ -83 +85 @@
     if Value <> '' then
       if DirectoryExists(UTF8Decode(Value)) then
-        fPath := IncludeTrailingBackslash(Value);
+        fPath := IncludeTrailingBackslash(Value)
+        else raise EDirNotFound.Create('Adresář nenalezen');
   end;
 end;