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