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="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
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>