Pascal - プログラムがフォーム切り替え時にハングする

Question

私は現在、10秒以内にクリック数をカウントし、2つの異なるファイルから名前とスコアを読み込み、別のフォームでさまざまな種類の名前とスコアを表示する簡単なアプリケーションを開発中です。しかし、ゲームが終了した後、 'ゲームオーバー！'メッセージが表示され、リーダーボードフォームが表示されますが、ボタンがなく、不思議そうに見えて、プログラムがクラッシュするようです。

これは、フォームがどのように見えるべきかです： Leaderboard Form

そして、これは、それが実際にどのように見えるかです：フォームを表示するためのLeaderboard Error in Form

以下のコードは、見つけることができます：

if TimeLeft=0 then 
    begin 
      Form2.Timer1.Enabled:=False;{Disable timer} 
      ShowMessage('Game Over!');{Message to show upon termination condtion being met} 
      Leaderboard.Show;{Show Leaderboard Form} 
      Form2.Hide;{Hide game} 
      Reset(LeaderboardNamesFile);{Open file} 
      while not EOF(LeaderboardNamesFile) do 
       LineCount:=LineCount+1;{Increment to allow for EOF marking of the score} 
      LeaderboardScoresArray[LineCount]:=Score;{Add score to array of scores} 
    end; 

そして、リーダーボードフォームのスコア表示ボタンに含まれるコード：

var Counter : Integer; 
begin 
    Counter:=1; 
    Memo1.Lines.add(LeaderboardNamesArray[Counter]+' - '+IntToStr(LeaderboardScoresArray[Counter])); 
end; 

フォームが表示されても実際には何も実行されないので、これはすべて非常に奇妙です。この前にクラッシュする必要があります。クラッシュメッセージは表示されません。何か案は？必要に応じて詳細情報が必要な場合は、お尋ねください。このサイトの新機能！

Answer 1

whileループは、ループが一つだけのコマンドが含まれ、無限大です：

while not EOF(LeaderboardNamesFile) do 
      LineCount:=LineCount+1;{Increment to allow for EOF marking of the score} 

だから、あなたのプログラムのカウントラインカウントアップが、aktuallyファイルからデータを読み取ることはありません。したがって、ファイルはEOF（「ファイルの終わり」）になることはありません。

Reset(LeaderboardNamesFile);{Open file} 
while not EOF(LeaderboardNamesFile) do 
begin 
    LineCount:=LineCount+1;{Increment to allow for EOF marking of the score} 
    readln(LeaderboardNamesFile, Score); 
    LeaderboardScoresArray[LineCount]:=Score;{Add score to array of scores} 
end; 
CloseFile(LeaderboardNamesFile);