<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 6.00.6000.16850" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial>Muchas gracias Javier por el adjunto, efectivamente no
puedo bajar archivos de la lista, por lo que creo que me será de mucha utilidad
el adjunto que me envías ya que tengo otras muchas dudas.</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>Ya había resuelto el problema de los número de la
siguiente forma:</FONT></DIV>
<DIV><FONT face=Arial></FONT> </DIV>
<DIV><FONT face=Arial>procedure Tfrmorigen.txtpuertoKeyPress(Sender: TObject;
var Key: char);<BR>begin<BR> if not (Key in ['0'..'9', #8, #13])
then<BR> Key := #0<BR> else if Key = #13
then<BR> txtcamino.SetFocus;<BR>end;<BR></FONT></DIV>
<DIV><FONT face=Arial>Saludos reiterados</DIV></FONT>
<DIV>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>PD: No tengo acceso a
Internet<BR><BR></DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Mensaje original ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>De:</B> <A
title=javivf.dev@gmail.com href="mailto:javivf.dev@gmail.com">Javier
Villarroya</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Para:</B> <A
title=lazarus-es@lists.lazarus.freepascal.org
href="mailto:lazarus-es@lists.lazarus.freepascal.org">Spanish version of
Lazarus List</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Enviado:</B> lunes, 16 de noviembre de 2009
01:21</DIV>
<DIV style="FONT: 10pt arial"><B>Asunto:</B> Re: [Lazarus-es] Solo
n?meros</DIV>
<DIV><BR></DIV>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 )<BR><BR>Var i : integer;<BR>...<BR>Case i
of<BR> 3 : DoSomething; <BR> 1..5 :
DoSomethingElse;<BR>end;<BR><BR>Case C of<BR> ’a’ : WriteLn (’A
pressed’);<BR> ’b’ : WriteLn (’B pressed’);<BR> ’c’ : WriteLn (’C
pressed’);<BR>else<BR> WriteLn (’unknown letter pressed :
’,C);<BR>end;<BR><BR>
<DIV class=gmail_quote>El 16 de noviembre de 2009 17:01, Ismael L. Donis
Garc?a <SPAN dir=ltr><<A
href="mailto:ismael@citricos.co.cu">ismael@citricos.co.cu</A>></SPAN>
escribió:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">Ante
todo disculpen por la sencillez de la pregunta, pero estoy trabado
en<BR>esto.<BR><BR>Yo tengo el siguiente procedimiento en una caja de texto
en Visual Basic 6<BR>para que solo permita entrada de números.<BR><BR>Como
sería la conversión para Lazarus?<BR><BR>Private Sub
txtPuerto_KeyPress(KeyAscii As Integer)<BR> Select Case
KeyAscii<BR> Case Is < 8<BR> KeyAscii = 0
'Anula la tecla presionada<BR> Case 9 To 12<BR>
KeyAscii = 0<BR> Case 13<BR>
txtCamino.SetFocus 'cambia hacia otra caja de texto cuando presiono
la<BR>tecla Enter<BR> Case 14 To 26<BR>
KeyAscii = 0<BR> Case 28 To 47<BR>
KeyAscii = 0<BR> Case Is > 57<BR>
KeyAscii = 0<BR> End Select<BR>End
Sub<BR><BR>GRACIAS<BR>=========<BR>¦¦ ISMAEL ¦¦<BR>=========<BR>PD: No tengo
acceso a
Internet<BR><BR><BR><BR>_______________________________________________<BR>Lazarus-es
mailing list<BR><A
href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</A><BR><A
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es"
target=_blank>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</A><BR></BLOCKQUOTE></DIV><BR>
<P>
<HR>
<P></P>_______________________________________________<BR>Lazarus-es mailing
list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>