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

Now properly closes the file base datafiles

This commit is contained in:
mysticbbs 2013-02-17 17:35:33 -05:00
parent a333e34264
commit f19f661819
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_cfg_filebase.pas
View File

@ -148,7 +148,7 @@ Begin
List.AllowTag := True;
List.SearchY := 21;
If FileSize(FBaseFile) = 0 Then InsertRecord;
//If FileSize(FBaseFile) = 0 Then InsertRecord;
Box.Open (15, 5, 65, 21);
@ -214,6 +214,8 @@ Begin
End;
Until False;
Close (FBaseFile);
Box.Close;
List.Free;
Box.Free;