Ayuda en un código

[kbaby]

A ver, alomejor te pasa esto. El iva y/o descuento se aplica una vez que tenemos un total "X". Así que primero elejimos los días que pasó en el hospital, el tipo de operación y luego ponemos por ejemplo:

16 -> IVA
5 -> DESCUENTO

Y verás como automaticamente el total cambia a "X+IVA-DESCUENTO".

^^

[[enecumene]]

Hola, yo quise decir esteticamente hablando, el mensaje no es nada agradable y poco informativo, podrías usar el Try...Except para capturar ese error y personalizar el mensaje que diga algo como:

Código Delphi [-]
ShowMessage('El valor que has ingresado no es válido, por favor digite el valor de la siguiente forma: bla, bla...');

Así quedaría mejor ¿no crees?, otra cosa, deberías centralizar el form principal o que cuando incies se maximize automaticamente.

Saludos.

[kbaby]

¿Me podrías explicar como usar el Try...Except?

La verdad es que no tengo ni idea y me gustaría hacer eso que me dices. Yo se usar el comando showmessage('blabla'); pero no sé hacer que cuando ponga por ejemplo en descuento "quince" salga un mensaje diciendo que sólo ponga números del 0-9.

Así quedaría mejor ¿no crees?, otra cosa, deberías centralizar el form principal o que cuando incies se maximize automaticamente.

Explica que eso me interesa :P Ya que yo lo ajusté al tamaño de la pantalla del ordenador que tengo en mi colegio, y ahora, al abrirlo en mi ordenador. paf! Se ve muy chico jajaja.

[[enecumene]]

Código Delphi [-]
procedure TForm.Button1click(sender: TObject);
begin
    try
      //las sentencias normales que tienes
    Except
       Showmessage('mensaje');
       Exit; //para detener el proceso
    end;
end;

Saludos

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