paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* DirectoryExists declaration changed to that one from fixes branch

Browse Source
This commit is contained in:
Tomas Hajny 2003-03-29 18:21:41 +00:00
parent 27062c2e01
commit 9e0f41900a
4 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/sysutils.pp
View File

@ -267,7 +267,7 @@ begin
end;
Function DirectoryExists (Const DirName : String) : Boolean;
Function DirectoryExists (Const Directory : String) : Boolean;
Var
Sr : Searchrec;
begin
@ -751,7 +751,10 @@ Finalization
end.
{
$Log$
Revision 1.12 2003-03-28 19:06:59 peter
Revision 1.13 2003-03-29 18:21:42 hajny
* DirectoryExists declaration changed to that one from fixes branch
Revision 1.12 2003/03/28 19:06:59 peter
* directoryexists added
Revision 1.11 2003/01/03 20:41:04 peter

7
rtl/objpas/filutilh.inc
View File

@ -70,7 +70,7 @@ Procedure FileClose (Handle : Longint);
Function FileTruncate (Handle,Size: Longint) : boolean;
Function FileAge (Const FileName : String): Longint;
Function FileExists (Const FileName : String) : Boolean;
Function DirectoryExists (Const DirName : String) : Boolean;
Function DirectoryExists (Const Directory : String) : Boolean;
Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
Function FindNext (Var Rslt : TSearchRec) : Longint;
Procedure FindClose (Var F : TSearchrec);
@ -85,7 +85,10 @@ Function FileSearch (Const Name, DirList : String) : String;
{
$Log$
Revision 1.8 2003-03-28 19:06:59 peter
Revision 1.9 2003-03-29 18:21:41 hajny
* DirectoryExists declaration changed to that one from fixes branch
Revision 1.8 2003/03/28 19:06:59 peter
* directoryexists added
Revision 1.7 2003/01/03 20:41:04 peter

7
rtl/unix/sysutils.pp
View File

@ -142,7 +142,7 @@ begin
end;
Function DirectoryExists (Const DirName : String) : Boolean;
Function DirectoryExists (Const Directory : String) : Boolean;
Var Info : Stat;
@ -491,7 +491,10 @@ end.
{
$Log$
Revision 1.15 2003-03-28 19:06:59 peter
Revision 1.16 2003-03-29 18:21:42 hajny
* DirectoryExists declaration changed to that one from fixes branch
Revision 1.15 2003/03/28 19:06:59 peter
* directoryexists added
Revision 1.14 2003/01/03 20:41:04 peter

7
rtl/win32/sysutils.pp
View File

@ -186,7 +186,7 @@ begin
end;
Function DirectoryExists (Const DirName : String) : Boolean;
Function DirectoryExists (Const Directory : String) : Boolean;
var
Handle: THandle;
FindData: TWin32FindData;
@ -683,7 +683,10 @@ Finalization
end.
{
$Log$
Revision 1.20 2003-03-28 19:06:59 peter
Revision 1.21 2003-03-29 18:21:42 hajny
* DirectoryExists declaration changed to that one from fixes branch
Revision 1.20 2003/03/28 19:06:59 peter
* directoryexists added
Revision 1.19 2003/01/03 20:41:04 peter