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

Formatting

This commit is contained in:
mysticbbs 2012-03-14 02:24:35 -04:00
parent a89ea1f22a
commit f975f813f3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/mystic.pas
View File

@ -209,7 +209,7 @@ Var
Begin Begin
Randomize; Randomize;
Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar; Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar;
{$I-} {$I-}
MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum)); MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum));
@ -217,7 +217,7 @@ Begin
If IoResult <> 0 Then; If IoResult <> 0 Then;
DirClean(Session.TempPath, ''); DirClean (Session.TempPath, '');
Assign (Session.User.UserFile, Config.DataPath + 'users.dat'); Assign (Session.User.UserFile, Config.DataPath + 'users.dat');
{$I-} Reset (Session.User.UserFile); {$I+} {$I-} Reset (Session.User.UserFile); {$I+}