Вложенные условия

@xxx_73 · Регистрация: 06.01.2014

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

Здравствуйте. Проблема такая.

Delphi

procedure TForm1.Button8Click(Sender: TObject);
var
NaF, KoF, RezF :Double;
begin
Label47.Caption:='0';
if (Edit11.Text='') or(Edit12.Text='') or (Edit11.Text='0') and (Edit12.Text<>'')
 then begin
 Application.MessageBox('Введите данные!', 'Внимание !', MB_OK);
  end;
 if  (Edit11.Text='0') and (Edit12.Text='0') then
Label47.Caption:=('ФЧ бесконечное!');
 
if (Edit11.Text<>'') and (Edit12.Text='0') then
Label47.Caption:=('Дисциллят!');
Exit;
 
  NaF:=StrToFloat(Edit11.Text);
KoF:=StrToFloat(Edit12.Text);
RezF:= NaF / KoF;
Label47.Caption:=FloatToStr(RoundTo(RezF, -2));
 end;

Есть два Едита: Edit11.Text И Edit12.Text
По фрагменту кода, когда в едитах стоят нули не выводится сообщение Label47.Caption:=('ФЧ бесконечное!');
а если в едитах ставишь числа не идет вычисление. Вероятно из за Exit;. В чем моя ошибка?

@cfbogd · 16.10.2016, 16:59

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

if (Edit11.Text='') or(Edit12.Text='') or (Edit11.Text='0') and (Edit12.Text<>'')

не правильно поставлено условие

Delphi

1	if (Edit11.Text='') or (Edit12.Text='') or [B]([/B] (Edit11.Text='0') and (Edit12.Text<>'')

@D1973 · 16.10.2016, 18:31

xxx_73, вот первое, что в глаза бросилось...

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

if (Edit11.Text='') or(Edit12.Text='') or (Edit11.Text='0') and (Edit12.Text<>'')
then begin
Application.MessageBox('Введите данные!', 'Внимание !', MB_OK);
end;

(Кстати, на счет скобок тебе cfbogd совершенно правильно указал)
Проверка на заполненность полей не прошла - вывелось сообщение и что? Код продолжает выполняться дальше...
Вот после вывода сообщения как раз и необходим Exit.
А вот второе:

Delphi

1	if (Edit11.Text='0') and (Edit12.Text='0') then Label47.Caption:=('ФЧ бесконечное!');

Если в Эдитах и там и там стоит 0, то, по идее, должна получиться запись в метке "ФЧ бесконечное".
Но следом-то идет вторая проверка:

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

if (Edit11.Text<>'') and (Edit12.Text='0') then Label47.Caption:=('Дисциллят!');

А т.к. в Edit11 у нас записан 0, то условие Edit11.Text<>'' заведомо истинное и в итоге ты не увидишь сообщения о "ФЧ", а увидишь сообщение о каком-то "Дисциллят"-е...

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

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

Вероятно из за Exit

Да уж, вестимо из за него...

Delphi

1	if (Edit11.Text<>'') and (Edit12.Text='0') then ...

прошла эта проверка или нет - неважно, в любом случае Exit будет следующим оператором, т.е. процедура прерывается.
Правильней было бы вот так:

Delphi

if (Edit11.Text<>'') and (Edit12.Text='0')
then begin
         Label47.Caption:=('Дисциллят!');
         Exit;
       end;

и то же самое надо сделать с первой проверкой:

Delphi

if  (Edit11.Text='0') and (Edit12.Text='0') 
then begin
         Label47.Caption:=('ФЧ бесконечное!');
         Exit;
       end;

иначе тут же схлопочешь вылет "Деление на 0"

@xxx_73 · 16.10.2016, 19:42 **[ТС]**

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

иначе тут же схлопочешь вылет "Деление на 0"

ну да..было такое. В целом по вашим советом все сделал..но фрагмент

Delphi

DelphiВыделить код
1
2
3
4
5
if  (Edit11.Text='0') and (Edit12.Text='0') 
then begin
         Label47.Caption:=('ФЧ бесконечное!');
         Exit;
       end;

все равно не работает..выводится сообщение

Delphi

1	Application.MessageBox('Введите данные!', 'Внимание !', MB_OK);

@D1973 · 16.10.2016, 20:38

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

все равно не работает..выводится сообщение...

Delphi

1	if (Edit11.Text='') or(Edit12.Text='') or ((Edit11.Text='0') and (Edit12.Text<>''))

Ну вот сам посмотри, почему у тебя оно может возникать (буквальный перевод на русский):
Если (Эдит11 пустой) или (Эдит12 пустой) или ((В Эдит11 внесен 0) и (в Эдит12 внесено что угодно))
Если выполнится хоть одно из 3-х условий, выделенных синим цветом, то возникнет твое сообщение об ошибке.
Ты вводишь 0 в Эдит11 и в Эдит12. Значит первые 2 условия не срабатывают: Эдиты не пусты. И вот он - момент true: Эдит12 у тебя не пуст, а в Эдит11 внесен 0, а это, по твоей задумке, должно приводить к появлению сообщения об ошибке...
Так что пересматривай условие!

Добавлено через 2 минуты
Как по мне, дык эта третья проверка тут нужна, как зайцу стоп-сигнал

@xxx_73 · 16.10.2016, 21:14 **[ТС]**

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

((В Эдит11 внесен 0) и (в Эдит12 внесено что угодно))

вот блин..и точно же..получается накладка..что угодно может быть и ноль..истинна где то рядом..=))) только после того как конкретно тыкнули в место -увидел.. Но условие не поменять..в том то и дело.

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

or ((Edit11.Text='0') and (Edit12.Text<>''))

пришлось убрать этот фрагмент. Более или менее. Спасибо всем, кто учил меня уму разуму.

@xxx_73 1 / 4 / 1 Регистрация: 06.01.2014 Сообщений: 427
	16.10.2016, 21:14 [ТС]	6
	Сообщение от D1973 ((В Эдит11 внесен 0) и (в Эдит12 внесено что угодно)) вот блин..и точно же..получается накладка..что угодно может быть и ноль..истинна где то рядом..=))) только после того как конкретно тыкнули в место -увидел.. Но условие не поменять..в том то и дело. Сообщение от D1973 or ((Edit11.Text='0') and (Edit12.Text<>'')) пришлось убрать этот фрагмент. Более или менее. Спасибо всем, кто учил меня уму разуму. 0

Вложенные условия

Решение