ループに条件が満たされてもループが実行されるのはなぜですか？

Question

私はプログラムを作成しており、これは次のようになっているはずです。プログラムは、登録する人の名前と年齢を取得する必要があります。年齢が13歳未満の場合は、子供としてカウントし、13歳以上の場合は大人としてカウントします。名前はメモに表示され、子供と大人の人数が表示されます（私は編集ボックスに表示されます）。

問題は、私がwhileループを使用していることです。たとえば、私の条件は、大文字の名前が 'EXIT'の場合、プログラムは終了するはずですが、これは起こっていません。代わりに、プログラムは年齢を聞くために続き、その後終了します。

は、ここに私のコードです：

name:= inputbox('dialog','Enter your name', ''); 
    edit1.Text:=name; 
    adults:=0; 
    children:=0; 

    while uppercase(name) <> 'EXIT' do 
    begin 
    name:= inputbox('dialog','Enter your name', ''); 
    memo1.Lines.Add(''+name); 
    age := strtoint(inputbox('age', 'Enter your age', '')); 
    if age<13 then 
    begin 
     children:=children+1; 
     edit3.Text:=inttostr(children) 
    end 
    else if age>=13 then 
    begin 
     adults:=adults+1; 
     edit2.Text:=inttostr(adults); 
    end ; 
    showmessage('Hello '+name+', Welcome to our funday'); 
    end; // while 

Answer 1

あなたのコードは、あなたが書いたのとまったく同じ方法で実行されます。名前を入力した後にテストをして、続行して年齢を聞かなければならないかどうかを確認する必要があります。 （それは簡単TForm.Nameと混同だので、私は以下のコードでANameにそれを変更したとしてnameは、貧しい変数名です。）

begin 
    Adults := 0; 
    Children := 0; 

    while True do 
    begin 
    AName:= InputBox('dialog','Enter your name', ''); 
    if UpperCase(AName) = 'EXIT' then 
     Break; 
    Memo1.Lines.Add(AName); 
    Age := StrToInt(InputBox('Age', 'Enter your age', '')); 
    if Age < 13 then 
    begin 
     Children := Children + 1; 
     Edit3.Text := IntToStr(Children) 
    end 
    else if Age >= 13 then 
    begin 
     Adults := Adults + 1; 
     Edit2.Text := IntToStr(Adults); 
    end; 
    ShowMessage('Hello ' + AName + ', Welcome to our funday'); 
    end; 
end; 

あなたは、あなたのユーザインターフェイスを再検討することをお勧めします。編集コントロールは、ユーザーがコンテンツを変更できるときに使用するように設計されています。ユーザーが編集できない値を表示するのには本当に適切ではありません。代わりにTLabelを使用することをお勧めします。実際には、このようなものを使ってただ1つだけで得ることができます：

Label1.Caption := Format('%d adults, %d children', [Adults, Children]); 

Answer 2

あなたは、あなたが無条件に年齢を尋ね、ループが両者の間で終了していないことは驚きべきではない、名前を尋ねます。ループを終了するには、名前を聞いた後で、年齢を聞く前にチェックが必要です。

adults := 0; 
children := 0; 

while true do 
begin 
    name := inputbox('dialog', 'Enter your name (or "exit" to exit)', ''); 
    if uppercase(name) = 'EXIT' then 
     break; 

    memo1.Lines.Add(''+name); 

    age := strtoint(inputbox('age', 'Enter your age', '')); 
    if age < 13 then 
     children := children + 1; 
    else 
     adults := adults + 1; 

    showmessage('Hello '+name+', Welcome to our funday'); 
end; 

edit2.Text := inttostr(adults); 
edit3.Text := inttostr(children); 

私はデルファイを知らないので、いかなる誤りも許しません。