Ver Mensaje Individual
  #1  
Antiguo 14-05-2010
chinopom chinopom is offline
Registrado
 
Registrado: may 2010
Posts: 8
Reputación: 0
chinopom Va por buen camino
Smile rango de numeros con sentencia 'if' ?

Buenas tardes comunidad, apenas ando empezando en esto de delphi y me he quedado atorado

lo que quiero hacer es decirle a Delphi que cuando un numero capturado por el usuario este en un rango por decir de 0 a 50 la fuente del label1 cambie de tamaño... intente con ete codigo pero obvio esta mal escrito

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
n1: integer;

begin
n1 := strtoint(edit1.Text);

if n1 > 0 and n1 < 50;
begin
  label1.Font.Size := label1.Font.Size + 2;
end;
Cual seria la estructura correcta para poder hacer esto???
gracias
Responder Con Cita