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

Reformatting

This commit is contained in:
mysticbbs 2012-02-16 00:27:37 -05:00
parent f0cc69f040
commit 898ce86a63
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mystic/bbs_ansi_menubox.pas
View File

@ -7,11 +7,11 @@ Interface
Uses Uses
m_Types; m_Types;
Procedure WriteXY (X, Y, A: Byte; S: String); Procedure WriteXY (X, Y, A: Byte; S: String);
Procedure WriteXYPipe (X, Y, A, SZ : Byte; S: String); Procedure WriteXYPipe (X, Y, A, SZ : Byte; S: String);
Function InXY (X, Y, Field, Max, Mode: Byte; Default: String) : String; Function InXY (X, Y, Field, Max, Mode: Byte; Default: String) : String;
Procedure VerticalLine (X, Y1, Y2 : Byte); Procedure VerticalLine (X, Y1, Y2 : Byte);
Function ShowMsgBox (BoxType : Byte; Str : String) : Boolean; Function ShowMsgBox (BoxType : Byte; Str : String) : Boolean;
Type Type
TAnsiMenuBox = Class TAnsiMenuBox = Class

7
mystic/bbs_filebase.pas
View File

@ -3281,6 +3281,7 @@ Var
Assign (DataFile, Config.DataPath + FBase.FileName + '.des'); Assign (DataFile, Config.DataPath + FBase.FileName + '.des');
{$I-} Reset (DataFile, 1); {$I+} {$I-} Reset (DataFile, 1); {$I+}
If IoResult = 0 Then If IoResult = 0 Then
Seek (DataFile, FileSize(DataFile)) Seek (DataFile, FileSize(DataFile))
Else Else
@ -3289,8 +3290,8 @@ Var
Assign (FDirFile, Config.DataPath + FBase.FileName + '.dir'); Assign (FDirFile, Config.DataPath + FBase.FileName + '.dir');
FindFirst(FBase.Path + FileMask, Archive, DirInfo); FindFirst(FBase.Path + FileMask, Archive, DirInfo);
While DosError = 0 Do Begin
While DosError = 0 Do Begin
OldPos := FilePos(FBaseFile); OldPos := FilePos(FBaseFile);
Close (FBaseFile); Close (FBaseFile);
@ -3341,6 +3342,7 @@ Var
End; End;
FDir.Pointer := FileSize(DataFile); FDir.Pointer := FileSize(DataFile);
For A := 1 to FDir.Lines Do For A := 1 to FDir.Lines Do
BlockWrite (DataFile, Session.Msgs.MsgText[A][0], Length(Session.Msgs.MsgText[A]) + 1); BlockWrite (DataFile, Session.Msgs.MsgText[A][0], Length(Session.Msgs.MsgText[A]) + 1);
@ -3365,11 +3367,14 @@ Var
End; End;
{$I-} Reset (FDirFile); {$I+} {$I-} Reset (FDirFile); {$I+}
If IoResult <> 0 Then ReWrite(FDirFile); If IoResult <> 0 Then ReWrite(FDirFile);
Seek (FDirFile, FileSize(FDirFile)); Seek (FDirFile, FileSize(FDirFile));
Write (FDirFile, FDir); Write (FDirFile, FDir);
Close (FDirFile); Close (FDirFile);
End; End;
FindNext(DirInfo); FindNext(DirInfo);
End; End;