Ayuda en un código

[kbaby]

Mi código a quedado así:

Código Delphi [-]
procedure TForm1.Button16Click(Sender: TObject);
var iva,total,a:real;
begin
  try
  iva:=strtofloat(edit21.text);
  total:=strtofloat(edit23.text);
  iva:= (iva / 100)*total;
  a:= total + iva;
  edit23.text:=floattostr(a);
  button16.enabled:=false;
  except
  showmessage('Introduzca un valor válido. Carácteres permitidos 0-9.');
  Exit;
end;
end;

Pero ahora cuando en IVA pongo quince (en vez de 15) no me sale ese mensaje, sino el error que a ti te daba. Algo hago mal...

[[enecumene]]

Hola, lo que tienes que hacer es esto:

Código Delphi [-]
procedure TForm1.Button16Click(Sender: TObject);
var iva,total,a:real;
begin
 if Edit21.Text > '9' then
   Begin
     ShowMessage('El Mensaje');
     Exit;
   end;
  try
  iva:=strtofloat(edit21.text);
  total:=strtofloat(edit23.text);
  iva:= (iva / 100)*total;
  a:= total + iva;
  edit23.text:=floattostr(a);
  button16.enabled:=false;
  except
  showmessage('Introduzca un valor válido. Carácteres permitidos 0-9.');
  Exit;
end;
end;

Saludos.

[kbaby]

Hola! Jajaja perdona la molestia. Puse ese código y resulta que si en edit21.text pongo (por ejemplo: pepe) me sale:
1º->
'El Mensaje'

2º->

El error de antes.

Queda feo el error que tira... ¿no se podría sustituir ese error por un mensaje que el usuario lo entienda?.

[[enecumene]]

Empezado por kbaby

Hola! Jajaja perdona la molestia. Puse ese código y resulta que si en edit21.text pongo (por ejemplo: pepe) me sale:
1º->
'El Mensaje'

2º->

El error de antes.

Queda feo el error que tira... ¿no se podría sustituir ese error por un mensaje que el usuario lo entienda?.

A ver, ¿cual fue el error feo que te tira?, y por casualidad el Edit21 no debe ser numérico?

Saludos.

[kbaby]

El error que da es: '' is not a valid floating point value.

Y claro que debe ser numerico. La cadena pepe la puse como si pusieramos dieciseis u ocho en el edit. Lo que quiero que haga es que si los introducido no es un numero del 0-9 (no hay mas numero que paranoya xD) pues salga un mensaje que diga que introduzca un valor del 0-9.

[[enecumene]]

Vamos a ver, prueba este, no te aseguro que funcione porque lo hice al vuelo:

Código Delphi [-]
procedure TForm1.Button16Click(Sender: TObject);
var iva,total,a:real;
    Numeros: Packed array[0..9] of integer;
    Valor: Integer;
begin
Valor := SrtToInt(Edit21.text);
 if Valor <> Numeros then
   Begin
     ShowMessagge('El Mensaje');
     Exit;
   end;
 if Edit21.Text > '9' then
   Begin
     ShowMessage('El Mensaje');
     Exit;
   end;
  try
  iva:=strtofloat(edit21.text);
  total:=strtofloat(edit23.text);
  iva:= (iva / 100)*total;
  a:= total + iva;
  edit23.text:=floattostr(a);
  button16.enabled:=false;
  except
  showmessage('Introduzca un valor válido. Carácteres permitidos 0-9.');
  Exit;
end;
end;

Intenta ahora.

Saludos.

[kbaby]

Gracias, el retoque un nada y ya funciona. Pues venga muchas gracias a ver que opina mi maestro Delphius xD