necesito ayuda por favor

[haffo]

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]

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]

// le fata terminar correctamente

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

[roman]

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:

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