Foros Club Delphi - rango de numeros con sentencia 'if' ?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - rango de numeros con sentencia 'if' ? (https://www.clubdelphi.com/foros/showthread.php?t=67927)

chinopom

14-05-2010 01:39:13

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:)

Caro	14-05-2010 04:44:12

Hola chinopom y bienvenido, te falta poner parentesis y el ; esta demas

Código Delphi [-]  ..............................
  n1 := strtoint(edit1.Text);
  if (n1 > 0) and (n1 < 50) then
    label1.Font.Size := label1.Font.Size + 2;

Saluditos

chinopom

15-05-2010 04:44:37

Ok muchas gracias amigo :) me ayudaste mucho!:)

ecfisa

15-05-2010 18:36:45

Hola.

Otra forma:

Código:

  ...

  n1:= StrToInt(Edit1.Text);

  if n1 in [1..49] then 

  ...

Saludos.

chinopom

16-05-2010 05:48:05

Cita:

Empezado por ecfisa (Mensaje 364151)

Hola.

Otra forma:

Código:

  ...

  n1:= StrToInt(Edit1.Text);

  if n1 in [1..49] then 

  ...

Saludos.

Ok muchas gacias por tu respuesta... lo voy a poner en prativa
gacias :)

La franja horaria es GMT +2. Ahora son las 08:02:04.