Ayuda Por Favor! Condición If

[javave]

Hola amigos qué tal?

Epa soy novato en Delphi, apenas empecé a usarlo ayer.

Estoy creando un programita para familiarizarme con Delphi. Sin embargo, tengo una duda que me está matando:

Estoy creando una condición y necesito saber cómo hago para extraer los datos de un EDIT para poder aplicar la condición.

Hasta ahora tengo este código:

var
prueba: Double;

begin
prueba := StrToFloat(Valor.Text);
prueba := Format([prueba]);
if isNAN(prueba) then
ShowMessage ('Lo que introdujo no es un número')
end.

Donde <<Valor>> es es nombre del EDIT donde el usuario introduce los números.

El objetivo es que el programa avise cuando el usuario introduce letras en ese EDIT. El programita que estoy desarrollando es un conversor.

Gracias espero su respuesta.

[ecfisa]

Hola javave.

Podés asignar esto al evento OnExit del TEdit:

Código Delphi [-]
procedure TForm1.ValorExit(Sender: TObject);
var
  Value: Integer;
begin
  if not TryStrToInt(Valor.Text, Value) then
  begin
    ShowMessage('No ingresó un número');
    Valor.SetFocus;
  end;
end;

O directamente evitar que lo ingrese, asignando esto al evento OnKeyPress del TEdit:

Código Delphi [-]
procedure TForm1.ValorKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,#13,'0'..'9']) then // teclas permitidas BacSpace,Intro,'0'..'9'
  begin
    Beep;
    Key:= #0;
  end;
end;

Hay otras opciones, pero creo que estas son simples y te funcionaran bién.

Saludos.

[[Chris]]

Normalmente siempre es más oportuno utilizar la función TryStrToFloat en lugar de StrToFloat. TryStrToFloat devuelve TRUE si la cadena dada en el primer parámetro solo tenía números, de lo contrario, devolverá FALSE.

Código Delphi [-]
var
    prueba: Double;
begin
    if not TryStrToFloat(Valor.Text, Prueba) then
    begin
        ShowMessage ('Lo que introdujo no es un número');
        Exit;
    end;
end;

[ecfisa]

Empezado por Chris

Normalmente siempre es más oportuno utilizar la función TryStrToFloat en lugar de StrToFloat. TryStrToFloat devuelve TRUE si la cadena dada en el primer parámetro solo tenía números, de lo contrario, devolverá FALSE.

Correcto, con TryStrToFloat ampliamos la opción a números reales.
Te comento javave que TryStrToInt funciona del mismo modo pero con enteros.

En ese caso la verificación OnKeyPress queda:

Código Delphi [-]
procedure TForm1.ValorKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8, #13, ',' , '0'..'9']) then // teclas permitidas BacSpace,Intro,'0'..'9', ',' o '.'
  begin
    Beep;
    Key:= #0;
  end;
end;

De acuerdo al delimitador especificado poné '.' o ','

Para especificarlo podés usar la variable DecimalSeparator.
Para el código de arriba:

Código Delphi [-]
  DecimalSeparator := ',';

Saludos.

[javave]

Gracias a todos por su apoyo!

Ya pude resolver el problema!