Application.Terminateはありません

Question

私はApplication.Terminateを呼び出す場合または Application.MaiForm.Closeメソッド内に閉じます。アプリケーションは終了しません！

procedure doSomething; 
var 
    ErrorFound: boolean; 
begin 
    [...] 
    try 
    if ErrorFound then 
     Application.Terminate; 
    finally 
    [...] 
    end; 
end; 

私はその理由を理解できません。

試しに、Try ... Finallyブロック内からApplication.Terminateを呼び出しています。

Answer 1

おそらく、ビジー状態のループからApplication.Terminateを呼び出している可能性があります。それ自体は終了しません。イベントハンドラを入力してもそれから戻ってこない場合は、Application.TerminateまたはApplication.MainForm.Closeを呼び出すのは無駄でしょう。アプリケーションを閉じるルーチンは協調的です。メインのメッセージループにメッセージをポストし、アプリケーションが正常にシャットダウンするように要求します。

たとえば、次のコードは、あなたが記述の症状を示すであろう：

procedure TMyForm.Button1Click(Sender: TObject); 
begin 
    while True do 
    Application.Terminate; 
end; 

別の（可能性が高い）可能性あなたがモーダルフォーム内からこの関数を呼び出しますが、モーダルフォームを閉じていないことです。

コードをもっと表示しない限り、私たちはこのような推測をすることになります。