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

FileUtil: inline DirectoryExistsUTF8 to LazFileutils.DirectoryExistsUTF8.

Browse Source 
git-svn-id: trunk@41286 -
This commit is contained in:
bart 2013-05-19 12:28:41 +00:00
parent 43c5ac5e1a
commit 946e76d280
4 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/fileutil.inc
View File

@ -54,6 +54,11 @@ begin
Result := LazFileUtils.FileExistsUTF8(FileName);
end;
function DirectoryExistsUTF8(const Directory: string): Boolean; inline;
begin
Result := LazFileUtils.DirectoryExistsUTF8(Directory);
end;
{$IFDEF darwin}
function GetDarwinSystemFilename(Filename: string): string;
var

2
components/lazutils/fileutil.pas
View File

@ -215,7 +215,7 @@ function UTF8ToConsole(const s: string): string;// converts UTF8 string to conso
// file operations
function FileExistsUTF8(const Filename: string): boolean; inline;
function FileAgeUTF8(const FileName: string): Longint;
function DirectoryExistsUTF8(const Directory: string): Boolean;
function DirectoryExistsUTF8(const Directory: string): Boolean; inline;
function ExpandFileNameUTF8(const FileName: string): string; inline;
function ExpandUNCFileNameUTF8(const FileName: string): string;
function ExtractShortPathNameUTF8(Const FileName : String) : String;

5
components/lazutils/unixfileutil.inc
View File

@ -366,11 +366,6 @@ begin
Result:=SysUtils.RemoveDir(UTF8ToSys(Dir));
end;
function DirectoryExistsUTF8(const Directory: string): Boolean;
begin
Result:=SysUtils.DirectoryExists(UTF8ToSys(Directory));
end;
function ExtractShortPathNameUTF8(const FileName: String): String;
begin

11
components/lazutils/winfileutil.inc
View File

@ -624,16 +624,7 @@ end;
function DirectoryExistsUTF8(const Directory: string): boolean;
var
Attr: Longint;
begin
Attr:=FileGetAttrUTF8(Directory);
if Attr <> -1 then
Result:= (Attr and FILE_ATTRIBUTE_DIRECTORY) > 0
else
Result:=False;
end;