paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:56:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: defaults for filecache

Browse Source 
git-svn-id: trunk@34351 -
This commit is contained in:
mattias 2011-12-21 13:57:43 +00:00
parent 1933e0f5ff
commit 4f552aff1b
1 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/lazutils/lazfilecache.pas
View File

@ -130,46 +130,68 @@ function FileExistsCached(const AFilename: string): boolean;
begin
if OnFileExistsCached<>nil then
Result:=OnFileExistsCached(AFilename)
else if FileStateCache<>nil then
Result:=FileStateCache.FileExistsCached(AFilename)
else
Result:=FileStateCache.FileExistsCached(AFilename);
Result:=FileExistsUTF8(AFilename);
end;
function DirPathExistsCached(const AFilename: string): boolean;
begin
Result:=FileStateCache.DirPathExistsCached(AFilename);
if FileStateCache<>nil then
Result:=FileStateCache.DirPathExistsCached(AFilename)
else
Result:=DirPathExists(AFilename);
end;
function DirectoryIsWritableCached(const ADirectoryName: string): boolean;
begin
Result:=FileStateCache.DirectoryIsWritableCached(ADirectoryName);
if FileStateCache<>nil then
Result:=FileStateCache.DirectoryIsWritableCached(ADirectoryName)
else
Result:=DirectoryIsWritable(ADirectoryName);
end;
function FileIsExecutableCached(const AFilename: string): boolean;
begin
Result:=FileStateCache.FileIsExecutableCached(AFilename);
if FileStateCache<>nil then
Result:=FileStateCache.FileIsExecutableCached(AFilename)
else
Result:=FileIsExecutable(AFilename);
end;
function FileIsReadableCached(const AFilename: string): boolean;
begin
Result:=FileStateCache.FileIsReadableCached(AFilename);
if FileStateCache<>nil then
Result:=FileStateCache.FileIsReadableCached(AFilename)
else
Result:=FileIsReadable(AFilename);
end;
function FileIsWritableCached(const AFilename: string): boolean;
begin
Result:=FileStateCache.FileIsWritableCached(AFilename);
if FileStateCache<>nil then
Result:=FileStateCache.FileIsWritableCached(AFilename)
else
Result:=FileIsWritable(AFilename);
end;
function FileIsTextCached(const AFilename: string): boolean;
begin
Result:=FileStateCache.FileIsTextCached(AFilename);
if FileStateCache<>nil then
Result:=FileStateCache.FileIsTextCached(AFilename)
else
Result:=FileIsText(AFilename);
end;
function FileAgeCached(const AFileName: string): Longint;
begin
if OnFileAgeCached<>nil then
Result:=OnFileAgeCached(AFilename)
else if FileStateCache<>nil then
Result:=FileStateCache.FileAgeCached(AFilename)
else
Result:=FileStateCache.FileAgeCached(AFilename);
Result:=FileAgeUTF8(AFileName);
end;
procedure InvalidateFileStateCache(const Filename: string);