3 If условия c под условиями (if) b одинаковыми телами.

[dock2005]

Привет. Если кто нибудь может помочь с решение лёгкой задачи ответа на которую я к своему стыду не знаю прошу помочь.

Суть такая 3 if условия (chrcc = 1, 2, 0), в каждом условии еще одно под условие. Тела под условий одинаковые. Как оформить код таким образом, что бы "тело" if'оф употреблялось только один раз.

Объяснения №2: Есть три условия в каждом из которых, есть разные под условия (в количестве 1 шт). Тела, внутри каждого под условия одинаковы (имеем 3 одинаковые конструкции, но они внутри под условий, т.е. :
Первое условие со значением 1 -> Первое под условие -> тело
Второе условие со значением 2 -> Второе под условие -> тело
Треть условие со значением 0 -> Третье под условие -> тело).

if checc = 1 then
begin
  if (sel_NakladCuVIDPF_NO.Value = 1) or (sel_NakladCuVIDPF_NO.Value = 16) then
  begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;
 
if checc = 2 then
begin
  if (sel_NakladCuVIDPF_NO.Value = 5) or (sel_NakladCuVIDPF_NO.Value = 6) or (sel_NakladCuVIDPF_NO.Value = 7) or (sel_NakladCuVIDPF_NO.Value = 11) then
  begin
    VesIzol:=a;    
  end
  else
  begin
    VesIzol:=b;
  end;
end;
 
if (checc <> 1) and (checc <> 2) then
begin
  if (sel_NakladCumORkg.Value = 1) then
  begin
   VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;

Само тело

begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;

Которое повторяется 3 раза. Необходимо сделать так, что бы "тело" было только одно.

[Stilet]

case checc of
 1: if sel_NakladCuVIDPF_NO.Value in [1,16] then VesIzol:=a else VesIzol:=b;
 2: if sel_NakladCuVIDPF_NO.Value in [5,6,7,11] then VesIzol:=a else VesIzol:=b;
 else if sel_NakladCumORkg.Value = 1 then VesIzol:=a else VesIzol:=b;
end;

Не?

[dock2005]

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

Не?

Это оформление намного красивее моего.

Но тело "VesIzol:=a else VesIzol:=b;" всё еще используется 3 раза.

В приведённом примере тело это 1 строчка, в реальном 15 строчек (упрощено было для наглядности). Именно количество строчек --> кода (тело) хотелось бы уменьшить с 3 до 1. Как ума не приложу.

Вам за ответ спасибо.

[Pavia]

Оформите функцией делов-то.

function FOO(Flag:Boolean):Variant; // Тут вместо Variant подставте свой тип.
begin
if Flag then 
   Result:=a
  else 
    Result:=b;
end;

[Vapaamies]

begin
  if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or
    ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or
    (sel_NakladCumORkg.Value = 1) then
  begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;

[Stilet]

Но тело "VesIzol:=a else VesIzol:=b;" всё еще используется 3 раза.

Не за теми метелками ты гонишься )
Если данные тебе приходят из БД, то такие вещи стоит решать вычисляемыми полями на уровне запроса.
А вообще я не вижу тут быдлокода. Да - много букаф, но если это работает и масштабируется то париться не стоит.

[dock2005]

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

Да - много букаф, но если это работает и масштабируется то париться не стоит.

Спасибо за ответ.

Да работает, просто очень много кода. А делфи7 не умеет делать Code-folding (скрывать часть кода). И конструкции получаются очень внушительные. Ну думаю придётся делать так.

А вам еще раз спасибо.

[Stilet]

И конструкции получаются очень внушительные.

В таком случае правильно выше сказано: Оборачивать узлы конструкции в функции ил методы классов. Ну и в отдельные юниты выносить (но с умом, а не каждую функу в отдельный юнит). И будет все ми-ми-ми.

[dock2005]

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

begin
  if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or
    ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or
    (sel_NakladCumORkg.Value = 1) then
  begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;

Не заметил ваш ответ. Добавил в него лишь 1 условие и всё идельно подошло.

((checc = 0) and (sel_NakladCumORkg.Value = 1)) then

Финально выглядит так:

begin
  if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1,16])) or
  ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5,6,7,11])) or
  ((checc = 0) and (sel_NakladCumORkg.Value = 1)) then
  begin
    VesIzol:=sel_vesizolCuSUM_IZOL.Value+(sel_NakladCuKOLVO.Value*sel_LIBCuKON_RAS_MED.Value);
    Parameters.ParamByName('CHER_VES').Value:=(sel_NakladCuKOLVO.Value*sel_LIBCuKON_RAS_MED.Value);
  end
  else
  begin
    VesIzol:=sel_vesizolCuSUM_IZOL.Value+(sel_NakladCuKOLVO.Value*sel_LIBCuKON_RAS_MED.Value)/1000;
    Parameters.ParamByName('CHER_VES').Value:=(sel_NakladCuKOLVO.Value*sel_LIBCuKON_RAS_MED.Value)/1000;
  end;
end;

[dock2005]

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

begin
  if ((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or
    ((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or
    (sel_NakladCumORkg.Value = 1) then
  begin
    VesIzol:=a;
  end
  else
  begin
    VesIzol:=b;
  end;
end;

А не поторопился, не правильно обрабатывается условия.

((checc = 1) and (sel_NakladCuVIDPF_NO.Value in [1, 16])) or

((checc = 2) and (sel_NakladCuVIDPF_NO.Value in [5, 7, 11])) or

например если sel_NakladCuVIDPF_NO.Value = 5 это не помешает при checc = 1 пройти в тело расчёта. А это уже нарушает условия выборки.