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

+ Use new DirectoryExists function

Browse Source
This commit is contained in:
michael 2003-10-26 12:24:29 +00:00
parent 90062097c9
commit 801695a4b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/sysutex/ex26.pp
View File

@ -6,7 +6,7 @@ Program Example26;
Uses sysutils; Uses sysutils;
Begin Begin
If Not FileExists('NewDir') then If Not DirectoryExists('NewDir') then
If Not CreateDir ('NewDir') Then If Not CreateDir ('NewDir') Then
Writeln ('Failed to create directory !') Writeln ('Failed to create directory !')
else else