elegir y concatenar en Delphi 7.0

[arespremium]

Hola me plantie un ejercicio sencillo en Delphi 7.0
en el cual se usa los formularios

al seleccionar un check este muestre el valor donde esta el label al presionar aceptar

si se selecciona el check SI, solo mostrara SI
si se selecciona el check NO, solo se mostrara NO
si se seleccion ambos, mostrara los dos.

Button1
CheckBox1
CheckBox2
Label1

Podria usar la sentencia IF, pero no se como usarla con un CheckBox en Borland 7.0

Saludos

Ver imagen_1

Ver imagen_2

[roman]

Una posibilidad:

Código Delphi [-]
if CheckBox1.Checked and CheckBox2.Checked then
  Label1.Caption := 'Sí y No'
else if CheckBox1.Checked then
  Label1.Caption := 'Sí'
else if CheckBox2.Checked then
  Label1.Caption := 'No'
else
  Label1.Caption := '';

// Saludos

[[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;

[Mick]

Me aburro un pelin asi que propongo otra forma de hacerlo, mas escuenta y que utiliza menos codigo una vez compilado (y sin compilar). Eso si, un poco mas ofuscado:

const
 messages: array [0..3] of string= ( '' , 'Sí' , 'No', 'Sí y No' );
begin
 Label1.Caption:= messages[Integer(CheckBox1.Checked) + (Integer(CheckBox2.Checked) SHL 1)];
end;

O esta forma que en realidad es identica a la anterior:

const
 messages: array [0..1] of array [0..1] of string= (  ('' , 'No') , ('Sí', 'Sí y No') );
begin
 Label1.Caption:= messages[Integer(CheckBox1.Checked)][Integer(CheckBox2.Checked)];
end;

Saludos