Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   necesito ayuda por favor (https://www.clubdelphi.com/foros/showthread.php?t=4304)

haffo 09-10-2003 19:48:58

necesito ayuda por favor
 
Tengo un par de Scrollbar, Scrollbar1 y Scrollbar2, que están controladas por dos Edit, Edit1 y Edit2, es decir, que al cambiar el valor de la Scrollbar, también se cambia el Edit. Después tengo un Botón, que al pulsarlo me manda los valores de Edit1 y Edit2 a un programa externo. Lo que necesito es que al pulsar Botón, me compruebe que el valor de Edit1 es mayor que el Edit2/2, si no se cumple esta condición necesito que NO llame al programa externo y que me saque un mensaje por pantalla diciendo "Parámetros Incorrectos". Eso es todo. Gracias por anticipado y por vuestro tiempo . Saludos.

cso2000 09-10-2003 21:15:25

Algo simple:


If strtoint( edit1.text ) > strtoint( edit2.text ) Then begin

// las lineas llaman al otro programa
// las lineas llaman al otro programa
// las lineas llaman al otro programa
// las lineas llaman al otro programa
// las lineas llaman al otro programa

end else
ShowMessage( 'Error en los Datos;

cso2000 09-10-2003 21:16:49

// le fata terminar correctamente

end else
ShowMessage( 'Error en los Datos ' );

roman 09-10-2003 21:28:52

También deberás tener cuidado en caso de que Edit1 o Edit2 no tengan valores numéricos ya que en tal caso StrToInt generará una excepción.

Puedes usar la función StrToIntDef que te devuelve el segundo argumento en caso de que la cadena no sea un número:

Código:

if
  StrToIntDef(Edit1.Text, Low(Integer)) >
  StrToIntDef(Edit2.Text, High(Integer))
then
  { llamar al programa }

Si Edit1 no tiene un número StrToIntDef regresará el menor entero posible que nunca será mayor que ningún otro de manera que la condición no se cumple. Similarmente, si Edit2 no contiene un número, StrToIntDef regresará el mayor entero posible que no puede ser menor que ningún otro por lo que la condición no se cumple. Si ambos fallan la condición con mayor razón no se cumplirá.

// Saudos


La franja horaria es GMT +2. Ahora son las 03:16:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi