Ver Mensaje Individual
  #2  
Antiguo 06-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola phirum1984 y bienvenido al ClubDelphi.

Al menos yo, no conozco ningún separador en la sintáxis de Delphi. El codigo que adjuntas debería trabajar correctamente.

Para que salgas de dudas, te pongo un ejemplo donde el condicional ocupa 4 líneas:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2,n3,n4,n5: Integer;
begin
  n1:= 2;
  n2:= 4;
  n3:= 6;
  n4:= 8;
  n5:= 10;
  if (n5 > n4) and (n4 > n3) and
     (n3 > n2) and (n2 > n1) and
     (n5 mod 2 = 0) and (n4 mod 2 = 0) and
     (n3 mod 2 = 0) and (n2 mod 2 = 0) then
   Caption:= 'condición cumplida'
  else
   Caption:= 'condición no cumplida';
end;

Te muestra: 'condicion cumplida'.

Probá ahora de asígnar algún valor impar (n2:=5 por ej.), o romper la condición de mayor que (n1:= 18) ,
y te mostrará: 'condición no cumplida'.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 06-01-2011 a las 03:45:31.
Responder Con Cita