Error al convertir Edit a Integer

#14

20-04-2012

Pedro-Juan Pedro-Juan is offline

Miembro

Registrado: ago 2006

Ubicación: Barcelona - España

Posts: 315

Poder: 20

Hola 5TU4RT

Por el código que veo en los edit sólo necesitas números enteros, con esto en el evento OnKeyPress del edit evitas que se introduzcan otros caracteres:

Código Delphi [-]procedure Form.Edit1KeyPress(Sender: TObject; var Key: Char);
var cReturn: Char;
begin
cReturn := Key;
if ((Key <  #48)  or (Key > #57)) then Key := #0;
if (cReturn = #8) then Key := #8;
end;

Espero te sirva.

Un saludo.

__________________
Este mundo es el camino para el otro, que es morada sin cesar. Mas cumple tener buen tino para andar esta jornada sin errar. (J. Manrique)

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
convertir un tbitmap a integer	sultan	Gráficos	5	26-10-2008 20:41:56
¿Cómo convertir de word a integer?	bluegene	Varios	16	19-03-2007 22:31:18
convertir un integer en hh:mm:ss	jmlifi	SQL	1	02-11-2005 18:00:44
Convertir un String a Integer	Rafe	Varios	2	12-08-2005 17:43:38
convertir a integer	acrophet	Varios	1	03-11-2003 12:01:43

La franja horaria es GMT +2. Ahora son las 18:42:37.