[Lazarus-es] Solo n?meros

[Javier Villarroya]

Como no se si te podrás bajar el archivo o la lista lo aceptara te pasteo el
trozo de texto que creo que te interesará ( pag 101 de la guia de referencia
de freepascal )

Var i : integer;
...
Case i of
  3 : DoSomething;
  1..5 : DoSomethingElse;
end;

Case C of
  ’a’ : WriteLn (’A pressed’);
  ’b’ : WriteLn (’B pressed’);
  ’c’ : WriteLn (’C pressed’);
else
  WriteLn (’unknown letter pressed : ’,C);
end;

El 16 de noviembre de 2009 17: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
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091116/aa4a515f/attachment-0002.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: ref.pdf
Type: application/pdf
Size: 703352 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20091116/aa4a515f/attachment-0002.pdf>