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

FileErase bugfix

This commit is contained in:
mysticbbs 2012-02-24 09:31:31 -05:00
parent cb53e34e2d
commit a0bafcb2d4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mdl/m_fileio.pas
View File

@ -374,7 +374,8 @@ Var
Begin Begin
Assign (F, Str); Assign (F, Str);
SetFAttr (F, Archive); SetFAttr (F, Archive);
Erase (F);
{$I-} Erase (F); {$I+}
Result := (IoResult = 0); Result := (IoResult = 0);
End; End;