Problema con condicionales encadenados

[ecfisa]

Hola Parabol77

Bueno, creo que el problema te lo estás haciendo con tanto begin y end innecesarios...

Basándome en la explicación, sería:

Código Delphi [-]
...
   if Deje1/Dengr <= 0.4 then
     D := Deje1
   else if Deje2/Dengr <=0.4 then
     D:=  Deje2
   else if Deje3/Dengr <= 0.4 then
     D:=  Deje3
   else if Deje4/Dengr <= 0.4 then
     D:=  Deje4
   else if Deje5/Dengr <= 0.4 then
     D:=  Deje5
   else if Deje6/Dengr <= 0.4 then
     D:=  Deje6
   else
     D:=  Deje7;
...

Un saludo.

[ecfisa]

Hola de nuevo.

Creo que mejor te dejo un ejemplo

Código Delphi [-]
...
function NoSe(Dengr,Deje1,Deje2,Deje3,Deje4,Deje5,Deje6,Deje7: Double): Double;
begin
  if Deje1/Dengr <= 0.4 then
    Result := Deje1
  else if Deje2/Dengr <=0.4 then
    Result:=  Deje2
  else if Deje3/Dengr <= 0.4 then
    Result:=  Deje3
  else if Deje4/Dengr <= 0.4 then
    Result:=  Deje4
  else if Deje5/Dengr <= 0.4 then
    Result:=  Deje5
  else if Deje6/Dengr <= 0.4 then
    Result:=  Deje6
  else
    Result:=  Deje7;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  D,Dengr: Double;
begin
  Dengr := 10;
  D:= NoSe(Dengr,7,6,5,5,5,4,1);
  ShowMessage(FloatToStr(D));
end;

Verás que la función devuelve 4, que es el primer número del parámetro que cumple la condicion. Ya que 4/10 es <= 0.4 y los predecesores no.

Un saludo.

[Parabol77]

¡Muchas gracias a ambos!

Perdón por contestar tan tarde, pero he estado un poco ocupado.

Resulta que al final, el error venía de otras acciones que había antes del código que he puesto, pero al menos he caido en poner todos esos condicionales de manera mucho más sencilla.

Gracias de nuevo.
Un saludo.