[Lazarus-es] Solo n?meros

[Claudio Romero]

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
>