elegir y concatenar en Delphi 7.0

[[Caral]]

Hola
Me parece asi:

Código Delphi [-]
  if CheckBox1.Checked = True then
   Begin
   Label1.Caption:= 'SI';
   end;
  if CheckBox2.Checked = True then
   Begin
    Label1.Caption:= 'NO';
   end;
   if CheckBox1.Checked and CheckBox2.Checked = True then
   Begin
   Label1.Caption:= 'SI y NO';

Supongo que funcionara, ultimamente no doy una.
Saludos

[[Caral]]

Hola
Mucho mas simple y mejor tu codigo Roman.
Saludos

[roman]

Pues es prácticamente lo mismo, sólo que comparar un booleano contra true o false es redundante.

// Saludos

[[Caral]]

Hola
Todos los dias se aprende, siempre los he puesto True o False, no se de donde lo saque.
Saludos

[roman]

A ver, la sintaxis de un condicional es:

IF valor booleano THEN
  sentencia

Es decir, no necesariamente se trata de una igualdad entre dos valores, simplemente una expresión que sea cierta o false. Por ello, como CheckBox.Checked es un valor booleano, es todo lo que se requiere.

Cuando ponemos

IF P = Q THEN
  sentencia

se comparan P y Q y el IF recibe el resultado (true o false).

// Saludos

[[Caral]]

Hola
Ahora lo entiendo, hice una prueba y funciona perfectamente, el problema lo tenia en el concepto, sobre todo en cuanto a no estar chequeado.
Lo ponia asi:

Código Delphi [-]
   if CheckBox1.Checked = False then
   Begin
   ADOQuery2.Close;
   ADOQuery3.Close;

Ahora asi:

Código Delphi [-]
   if not CheckBox1.Checked then
   Begin
   ADOQuery2.Close;
   ADOQuery3.Close;

Casi lo mismo, verdad
Saludos

[[AzidRain]]

Por cierto que tambien se pueden asigar comparaciones a un booleano:

Código Delphi [-]
  var Mayorquecero:Boolean;
     i:integer;

Begin
  I:=5;
  MayorqueCero := ( i > 0)

 If MayorqueCero Then ShowMessage('si es mayor que cero');

end;