[Lazarus-es] Solo n?meros

Ismael L. Donis Garc?a ismael en citricos.co.cu
Lun Nov 16 22:54:52 CET 2009


Claudio en tiempo de diseño me da error y en ejecución no me inabilita la 
entrada de caracteres, ósea me deja escribir letras en la caja de texto y yo 
solo quiero que permita escribir números.

Pongo:

procedure Tfrmorigen.txtpuertoKeyPress(Sender: TObject; var Key: char);
begin
  if not EsEntero(Key) then exit;
end;

No he logrado inabilitar el valor de Key a la hora de teclear si no es un 
número.

Saludos cordiales
=========
¦¦ ISMAEL ¦¦
=========
PD: No tengo acceso a Internet
----- Mensaje original ----- 
De: "Claudio Romero" <clauslack en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: lunes, 16 de noviembre de 2009 01:46
Asunto: Re: [Lazarus-es] Solo n?meros


Puedes probar con

if not EsEntero(Edit1.Text) then exit;

function EsEntero(S: String): Boolean;
begin
  try
    Result := True;
    StrToInt(S);
  except on E: EConvertError do
    Result := False;
  end;
end;
**-----
Saludos

El día 16 de noviembre de 2009 13:01, Ismael L. Donis Garc?a
<ismael en citricos.co.cu> escribió:
> Ante todo disculpen por la sencillez de la pregunta, pero estoy trabado en
> esto.
>
> Yo tengo el siguiente procedimiento en una caja de texto en Visual Basic 6
> para que solo permita entrada de números.
>
> Como sería la conversión para Lazarus?
>
> Private Sub txtPuerto_KeyPress(KeyAscii As Integer)
>  Select Case KeyAscii
>    Case Is < 8
>      KeyAscii = 0 'Anula la tecla presionada
>    Case 9 To 12
>      KeyAscii = 0
>    Case 13
>      txtCamino.SetFocus 'cambia hacia otra caja de texto cuando presiono 
> la
> tecla Enter
>    Case 14 To 26
>      KeyAscii = 0
>    Case 28 To 47
>      KeyAscii = 0
>    Case Is > 57
>      KeyAscii = 0
>  End Select
> End Sub
>
> GRACIAS
> =========
> ¦¦ ISMAEL ¦¦
> =========
> PD: No tengo acceso a Internet
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>

_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es






More information about the Lazarus-es mailing list