[Lazarus-es] Solo n?meros

[Ismael L. Donis García]

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.

Ya había resuelto el problema de los número de la siguiente forma:

procedure Tfrmorigen.txtpuertoKeyPress(Sender: TObject; var Key: char);
begin
  if not (Key in ['0'..'9', #8, #13]) then
    Key := #0
  else if Key = #13 then
    txtcamino.SetFocus;
end;

Saludos reiterados
=========
¦¦ ISMAEL ¦¦
=========
PD: No tengo acceso a Internet


  ----- Mensaje original ----- 
  De: Javier Villarroya 
  Para: Spanish version of Lazarus List 
  Enviado: lunes, 16 de noviembre de 2009 01:21
  Asunto: Re: [Lazarus-es] Solo n?meros


  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





------------------------------------------------------------------------------


  _______________________________________________
  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/20091117/b9fe998d/attachment-0002.html>