else 문이 실행되지 않는 경우

Question

if if else 문의 매우 재미있는 동작이 있습니다. 시작시 메모가 비어 있고 삭제 시도가 메시지를 트리거합니다. 그런 다음 메모에 내용을 쓰고 삭제하려고하면 올바른 메시지가 다시 나타납니다. 그러나 마지막으로 삭제 한 후 (메모가 비어 있음) 다시 한 번 클릭하여 삭제하면 두 번째 메시지가 표시되고 첫 번째 메시지는 삭제되지 않습니다. 여기에 올바른 방법이 무엇입니까?

procedure TForm1.AdvGlowButton2Click(Sender: TObject); 
begin 
    if advmemo1.IsEmpty then 
     ShowMessage('Nothing to delete !') 
    else 
    begin 
    if MessageDlg('Delete everything?', 
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin 
     advmemo1.Lines.Clear; 
     advmemo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+ '\memo.txt'); 
    end; 
    end; 
end; 

Answer 1

모든 실제적인 목적을 위해

advmemo1.RefreshMemo; 

Answer 2

이 당신이 보여 코드 아무 문제가 없기 때문에 마지막 중 당신이 생각처럼 1) 모든 것이 실제로 삭제, 또는 2) IsEmpty 제안하는 대신 진정한 반환하는 삭제 한 후 분명히 IsEmpty은 false를 반환해야합니다 버그입니다.