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

View File

@ -231,6 +231,7 @@ Begin
FileMode := 66; FileMode := 66;
{$I-} {$I-}
Assign (PromptFile, Config.DataPath + Theme.FileName + '.thm');
Reset (PromptFile); Reset (PromptFile);
Seek (PromptFile, N); Seek (PromptFile, N);
Read (PromptFile, Prompt); Read (PromptFile, Prompt);