Ayuda en un código

[[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

[[enecumene]]

Empezado por kbaby

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

A ver, al estar tu de comelón te comiste algunas palabras y no entiendo , ¿cual fue el retoque? ¿lo último que te propuse funcionó?

Saludos.

[kbaby]

A mi me funcionó, lo que retoqué fue mi codigo, el que ya tenía

[[Delphius]]

Hola kbaby,
Estuve fuera estos últimos días. Recien vuelvo.
Me alegro de que hayas aprobado el proyecto. Se ve que tienes muchas ganas y energías. No pierdas ese entusiasmo... no es por ser malito pero puede que más adelante te haga falta.

Disculpa que no haya visto tus proyectos. Es que estas semanas ando corto de tiempo y tengo obligaciones que me van a obligar ausentarme mucho.

Veo que enecumene tomó mi lugar en la cátedra. No temas pedir ayuda a alguien más. Somos muchos los profes aqui. Y si te le animas... puedes sumartenos, aportando lo que vayas aprendiendo.

Saludos,