Changeset 31 for FindFile/UFindFile.pas
- Timestamp:
- Jun 24, 2010, 4:18:03 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
FindFile/UFindFile.pas
r26 r31 27 27 28 28 type 29 EDirNotFound = class(Exception); 30 29 31 TFileAttrKind = (ffaReadOnly, ffaHidden, ffaSysFile, ffaVolumeID, ffaDirectory, ffaArchive, ffaAnyFile); 30 32 TFileAttr = set of TFileAttrKind; … … 83 85 if Value <> '' then 84 86 if DirectoryExists(UTF8Decode(Value)) then 85 fPath := IncludeTrailingBackslash(Value); 87 fPath := IncludeTrailingBackslash(Value) 88 else raise EDirNotFound.Create('Adresář nenalezen'); 86 89 end; 87 90 end;
Note:
See TracChangeset
for help on using the changeset viewer.