paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 09:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* DirectoryExists merged from the fixes branch

Browse Source
This commit is contained in:
Tomas Hajny 2003-03-29 15:36:58 +00:00
parent bb42b50950
commit 53b6c5d242
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/posix/sysutils.pp
View File

@ -454,8 +454,17 @@ begin
end;
function DirectoryExists (const Directory: string): boolean;
Function DirectoryExists(const Directory: string): Boolean;
var
Info : Stat;
l: cint;
begin
l:=sys_Stat(pchar(Directory),Info);
if l<>0 then
Result:=S_ISDIR(info.st_mode)
else
Result := false;
end;
@ -538,7 +547,10 @@ Finalization
end.
{
$Log$
Revision 1.4 2003-03-29 15:16:26 hajny
Revision 1.5 2003-03-29 15:36:58 hajny
* DirectoryExists merged from the fixes branch
Revision 1.4 2003/03/29 15:16:26 hajny
* dummy DirectoryExists added
Revision 1.3 2002/09/07 16:01:26 peter