eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

DirExists function rename

This commit is contained in:
mysticbbs 2012-03-03 22:08:30 -05:00
parent b8acc073c1
commit 71a7576dde
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mdl/m_fileio.pas
View File

@ -27,11 +27,11 @@ Function ioBlockWrite (Var F: File; Var Rec; dSize: LongInt; Var Res: LongInt) :
Function FileExist (Str: String) : Boolean;
Function FileErase (Str: String) : Boolean;
Function FileDirExists (Str: String) : Boolean;
Function JustFileName (Str: String) : String;
Function JustFile (Str: String) : String;
Function JustFileExt (Str: String) : String;
Function JustPath (Str: String) : String;
Function DirExists (Str: String) : Boolean;
Function DirSlash (Str: String) : String;
Function DirChange (Dir: String) : Boolean;
Procedure DirClean (Path: String; Exempt: String);
@ -391,7 +391,7 @@ Begin
Result := (DosError = 0) and (Attr And Directory = 0);
End;
Function FileDirExists (Str: String) : Boolean;
Function DirExists (Str: String) : Boolean;
Var
F : File;
Attr : Word;

2
mystic/bbs_common.pas
View File

@ -229,7 +229,7 @@ Function CheckPath (Str: String) : String;
Begin
While Str[Length(Str)] = PathChar Do Dec(Str[0]);
If Not FileDirExists(Str) Then Begin
If Not DirExists(Str) Then Begin
If Session.io.GetYN ('|CR|12Directory doesn''t exist. Create? |11', True) Then Begin
{$I-} MkDir (Str); {$I+}

2
mystic/mpl_execute.pas
View File

@ -1415,7 +1415,7 @@ Begin
End;
43 : FileErase(Param[1].S);
44 : Begin
TempBool := FileDirExists(Param[1].S);
TempBool := DirExists(Param[1].S);
Store (TempBool, 1);
End;
45 : Begin

2
mystic/mystic.pas
View File

@ -138,7 +138,7 @@ End;
Procedure CheckDIR (Dir: String);
Begin
If Not FileDirExists(Dir) Then Begin
If Not DirExists(Dir) Then Begin
Screen.WriteLine ('ERROR: ' + Dir + ' does not exist.');
DisposeClasses;