Ver Mensaje Individual
  #3  
Antiguo 04-04-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Por lo visto Reina se me adelanto, bueno entonces te dejo otra cosa que puede serte util.

Aqui tienes una forma de comprobar si el texto introducido en el edit se puede convertir en un numero, de esta forma si alguien introduce letras puedes darte cuenta y avisar del error o tomar las medidas que consideres oportunas.

Código Delphi [-]
var
  R: Real;
  E: Integer;
begin
  Val(edit1.Text, R, E);
  if E = 0 then
  begin
    // El texto se puede convertir a numero
    // y tenemos su valor almacenado en R
  end
  else
  begin
    // El texto no se puede convertir en un numero
    // avisamos del error o lo que sea.
  end;
end;

Ten en cuenta que aunque impidas que alguien introduzca letras siempre puede haber algun simpatico que te pegue un texto desde el portapapeles.

Última edición por seoane fecha: 04-04-2006 a las 20:56:30.
Responder Con Cita