Ayuda a componer un codigo
 

Hola a todos.

Quiero me den una ayuda para componer un codigo.

Este codigo que les presento funciona correctamente, pero me hace falta otra linea que es si es menor que 70 y mayor e igual a 60, entonces ....
"ESTE ESTUDIANTE SE TIENE OTRA OPORTUNIDAD"

Código SQL [-]
Query1.Close;
query1.Open;
if query1.FieldByName('total').Value >= 70 then begin
form6.label10.font.Color := CLHOTLIGHT;
form6.label10.Caption := '"ESTUDIANTE PROMOVIO"';
end;

if query1.FieldByName('total').Value < 60 then begin
form6.label10.Caption := '"ESTE ESTUDIANTE SE GUAYO"';
form6.label10.font.Color := clred  ;

Saludos..

Hola

Para una mejor idea lo que quiero hacer es esto:

Código SQL [-]
Query1.Close;
query1.Open;
if query1.FieldByName('total').Value >= 60 and  < 70 then begin
form6.label10.font.Color := CLHOTLIGHT;
form6.label10.Caption := '"Este estudiante tiene otra oportunidad"';
end;

Este codigo me da un error.

Saludos

Hola aanil, debes utilizar paréntesis en cada comparación dentro tu if, te falta también colocar el campo por el que estas comparando despues del and.

Código Delphi [-]
 if (query1.FieldByName('total').Value >= 60) and  (query1.FieldByName('total').Value< 70) then begin
 ......................................

Debes indicarnos el mensaje de error que te da, para que te podamos ayudar mejor.

Saluditos

Hola Caro.

Esto quedo perfecto sin ningún error.

Gracias.

AAnil