AyUda !!EXAMEN de SQL

[marto]

Empezado por ricardocid

NO ME RESPONDIERON LA CONSULTA SOBRE EL KEYPRESS EN DELPHI, POR FAVOR AYUDENME YA QUE ES PARA ENTRAR A UN LABURO

No te voy a traducir el código, pero mirando en la ayuda lo encontrarás fácil. Búsca lo siguiente:

OnKeyPress ->fíjate en los parámetros
Pos -> en lugar de InStr

suerte


por cierto... no hace falta que insistas más en lo urgente que es... piensa que aquí nadie pregunta por gusto

[ricardocid]

Estuve viendo la ayuda y sinceramente no es nada clara.
Por lo que interprete arme esta sentencia que me da error:

Código Delphi [-]
 
If KeyAscii = 13 Then 
  c_devuelto2.SetFocus
cadena := '0123456789' + Chr(8); 
If InStr(cadena, Chr(KeyAscii)) = 0 Then
  KeyAscii := 0;

Yo lo que tengo que hacer es que en el text solo me deje escribir numeros, agradeceria si alguien se tomara el tiempo de escribir el codigo
Con respecto a lo del apuro, pido disculpas. Y al ser nuevo en este foro no sabia algunas de las reglas con las cuales se manejan
Gracias por responder.

[Agar23]

Código Delphi [-]
procedure TForm.KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in (['0'..'9',#8])) then key:=#0;
end;

[marto]

Empezado por ricardocid

Con respecto a lo del apuro, pido disculpas. Y al ser nuevo en este foro no sabia algunas de las reglas con las cuales se manejan

Bueno, tranquilo, todos hemos sido nuevos, la gracia está en no tropezar dos veces con la misma piedra.

Por cierto, he editado tu mensaje para poner el código entre etiquetas "[delphi]", ¿ves la diferencia?....