Вывод диалогового окна ошибки

@mays · Регистрация: 05.03.2015

Author24 — интернет-сервис помощи студентам

Когда происходит ошибка (пустые эдиты) выводится 3 ошибки, а нужно 1, прикрепляю код:

Delphi

if Form2.CheckBox1.Checked=true then
  if (Form2.Edit1.Text = '') or (Form2.Edit3.Text = '')
    or (Form2.Edit8.Text = '') or (Form2.Edit7.Text = '') then
      MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0);
if Form2.CheckBox2.Checked=true then
  if (Form2.Edit2.Text = '') or (Form2.Edit10.Text = '')
    or (Form2.Edit9.Text = '') or (Form2.Edit5.Text = '') then
      MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0);
if Form2.CheckBox3.Checked=true then
  if (Form2.Edit4.Text = '') or (Form2.Edit6.Text = '')
    or (Form2.Edit11.Text = '') or (Form2.Edit12.Text = '') then
      MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0);

@VladWH · 08.05.2015, 00:40

Delphi

if Form2.CheckBox1.Checked and Form2.CheckBox2.Checked and
 Form2.CheckBox3.Checked then
  if (Form2.Edit1.Text = '') or (Form2.Edit3.Text = '')
    or (Form2.Edit8.Text = '') or (Form2.Edit7.Text = '') then
      MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0);

@mays · 08.05.2015, 00:44 **[ТС]**

В Вашем случаее ошибка будет только тогда, когда все 3 CheckBox-а будут активными, мне же нужно: либо каждый по отдельности, либо 2 любых, либо же 3. Заметили что под каждым CheckBox-ом разные Edit-ы?

@VladWH · 08.05.2015, 00:59

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

мне же нужно: либо каждый по отдельности, либо 2 любых, либо же 3.

В твоем коде так и есть... можно вот так правда...

Delphi

if Form2.CheckBox1.Checked=true then
 if (Form2.Edit1.Text = '') or (Form2.Edit3.Text = '')
  or (Form2.Edit8.Text = '') or (Form2.Edit7.Text = '') then begin
      MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0); exit; end;
if Form2.CheckBox2.Checked=true then
  if (Form2.Edit2.Text = '') or (Form2.Edit10.Text = '')
    or (Form2.Edit9.Text = '') or (Form2.Edit5.Text = '') then begin
        MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0); exit; end;
if Form2.CheckBox3.Checked=true then
 if (Form2.Edit4.Text = '') or (Form2.Edit6.Text = '')
     or (Form2.Edit11.Text = '') or (Form2.Edit12.Text = '') then begin
       MessageDlg('System MC: Error! Please check your values!',mtError,[mbCancel],0); exit; end;

Я думаю это решит твою проблему

@mays · 08.05.2015, 01:08 **[ТС]**

Отпишусь через пару минут об этом:

Delphi

1	exit; end;

В любом случаее - спасибо.

Добавлено через 7 минут

Отпишусь через пару минут об этом:
Код Delphi
1
exit; end;
В любом случаее - спасибо.

Плохая идея, не помогло.

@VladWH · 08.05.2015, 01:12

как это так? весь код процедуры покажи тогда

@northener · 08.05.2015, 01:20

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

как это так? весь код процедуры покажи тогда

Не код нужно тут спрашивать, а задачу просить уточнить.

@mays 0 / 0 / 0 Регистрация: 05.03.2015 Сообщений: 24
	08.05.2015, 00:44 [ТС]	3
	В Вашем случаее ошибка будет только тогда, когда все 3 CheckBox-а будут активными, мне же нужно: либо каждый по отдельности, либо 2 любых, либо же 3. Заметили что под каждым CheckBox-ом разные Edit-ы? 0

@VladWH 243 / 193 / 94 Регистрация: 01.05.2015 Сообщений: 732
	08.05.2015, 01:12	6
	как это так? весь код процедуры покажи тогда 0

@northener пофигист широкого профиля 4753 / 3188 / 861 Регистрация: 15.07.2013 Сообщений: 18,449
	08.05.2015, 01:20	7
	Сообщение от VladWH как это так? весь код процедуры покажи тогда Не код нужно тут спрашивать, а задачу просить уточнить. 0