[snr93]

Добрый день. Не могу понять почему в этом коде

Код:

begin
    if MessageDlg('тут вопрос?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   b1:=b1+1;
   b2:=b2+1;
   Edit1.Text:=IntToStr(b1);
   Edit2.Text:=IntToStr(b2);

b1 прибавляет к себе единицу только когда отвечаем "да", а b2 прибавляет к себе единицу при любом ответе. Как это исправить?

[NumLock]

Код:

begin
end;

[poli-smen]

Сообщение от snr93

Добрый день. Не могу понять почему в этом коде

Код:

begin
    if MessageDlg('тут вопрос?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
   b1:=b1+1;
   b2:=b2+1;
   Edit1.Text:=IntToStr(b1);
   Edit2.Text:=IntToStr(b2);

b1 прибавляет к себе единицу только когда отвечаем "да", а b2 прибавляет к себе единицу при любом ответе. Как это исправить?

Заключи всё что должно выполниться при ответе "да" в операторные скобки begin...end

[GDSprogramer]

Код:

begin
    if MessageDlg('тут вопрос?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then 
   b1:=b1+1
else
   b2:=b2+1;


   Edit1.Text:=IntToStr(b1);
   Edit2.Text:=IntToStr(b2);

MAD: Оформляем код, или последуют санкции.

Так должно работать

Примечание:
b1:=b1+1 выполнится если ответ на вопрос "да"
b2:=b2+1; выполнится во всех остальных случаях


Если есть вопросы, на сайте програм.рф есть моя почта. Пиши, отвечу