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

more precautions to prevent potential errors while reading prompts

This commit is contained in:
mysticbbs 2012-07-12 21:23:27 -04:00
parent 14c0341265
commit 6f037b3258
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mystic/bbs_core.pas
View File

@ -231,9 +231,10 @@ Begin
FileMode := 66; FileMode := 66;
{$I-} {$I-}
Reset (PromptFile); Assign (PromptFile, Config.DataPath + Theme.FileName + '.thm');
Seek (PromptFile, N); Reset (PromptFile);
Read (PromptFile, Prompt); Seek (PromptFile, N);
Read (PromptFile, Prompt);
{$I+} {$I+}
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin