elegir y concatenar en Delphi 7.0

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