Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2008
axlrafael axlrafael is offline
Miembro
 
Registrado: abr 2008
Posts: 36
Poder: 0
axlrafael Va por buen camino
Hola BlueSteel gracias por responder.

Efectivamente a cada TEdit le puse de valor por default "0" para evitar eso, pero como el usuario puede llegar a equivocarse y dejar un campo nulo la aplicación le marcará error y es lo que quiero evitar.

Sobre los componentes jedi ya descarge los componentes pero no se como instalarlos es por eso que no los ocupo.

Saludos
Responder Con Cita
  #2  
Antiguo 14-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 22
enecumene Va por buen camino
Cita:
Empezado por axlrafael Ver Mensaje
Sobre los componentes jedi ya descarge los componentes pero no se como instalarlos es por eso que no los ocupo.
Vale, hubieses preguntado aquí y te habriamos ayudado acto seguido.

Saludos .
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #3  
Antiguo 14-05-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
Deberias comprobarlo en el momento en que necesitas un numero. La manera correcta de comprobarlo es usando excepciones (el usuario tb puede que haya puesto una letra, una O por un 0, cosas asi...)
La manera correcta para coger estos errores es usando :

Código Delphi [-]
try
     a_sumar := strtofloat(Edit1.Text);
  // Lo que se va a probar si provoca error o no
except
  // Lo que quieras que pase si da un error...un mensaje, un valor por   
  //defecto...si no pasa ningun error, el trozo este no se ejecutara.
end;

aqui un ejemplo: lo puedes colocar en un boton 'Suma'

Código Delphi [-]
var
  i : integer;
  a_sumar : double;
  resultado : double;
begin
  resultado := 0;
  for i := 0 to 324 do 
  begin
    try
     a_sumar := strtofloat((FindComponent('Edit'+inttostr(i)) as TEdit).Text);
     except  // Si hay error....
         a_sumar := 0;
         ShowMessage('Error en el Editbox nº' + inttostr(i));
     end;
     resultado := resultado + a_sumar;
  end;
  ShowMessage(FormatFloat('0.00',Resultado));
end;

venga, a ver si te sirve
Responder Con Cita
  #4  
Antiguo 14-05-2008
axlrafael axlrafael is offline
Miembro
 
Registrado: abr 2008
Posts: 36
Poder: 0
axlrafael Va por buen camino
Cita:
Empezado por coso Ver Mensaje
Deberias comprobarlo en el momento en que necesitas un numero. La manera correcta de comprobarlo es usando excepciones (el usuario tb puede que haya puesto una letra, una O por un 0, cosas asi...)
La manera correcta para coger estos errores es usando :


Código Delphi [-]
try
a_sumar := strtofloat(Edit1.Text);
// Lo que se va a probar si provoca error o no
except
// Lo que quieras que pase si da un error...un mensaje, un valor por
//defecto...si no pasa ningun error, el trozo este no se ejecutara.
end;






aqui un ejemplo: lo puedes colocar en un boton 'Suma'


Código Delphi [-]
var
i : integer;
a_sumar : double;
resultado : double;
begin
resultado := 0;
for i := 0 to 324 do
begin
try
a_sumar := strtofloat((FindComponent('Edit'+inttostr(i)) as TEdit).Text);
except // Si hay error....
a_sumar := 0;
ShowMessage('Error en el Editbox nº' + inttostr(i));
end;
resultado := resultado + a_sumar;
end;
ShowMessage(FormatFloat('0.00',Resultado));
end;






venga, a ver si te sirve

Hola gracias coso, voy a adaptar mi código a este que me acabas de escribir haber si puedo, cualquier cosa yo les aviso va.

Saludos
Responder Con Cita
  #5  
Antiguo 14-05-2008
axlrafael axlrafael is offline
Miembro
 
Registrado: abr 2008
Posts: 36
Poder: 0
axlrafael Va por buen camino
Lo que intento hacer es como en la calculadora de Windows, que cuando uno borra algun dato automaticamente me aparece "0" para no hechar a perder la operación, asi es conmigo, no puedo dejar algun campo vacio por que me hecha a perder el código OnChange al sumar todos los campos.

Última edición por axlrafael fecha: 14-05-2008 a las 20:31:01.
Responder Con Cita
  #6  
Antiguo 14-05-2008
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 24
ContraVeneno Va por buen camino
el TjvValidateEdit de las Jedi, como ya mencionaron, te permite manejar solo números, así no tendrías que validad nada. Además, este componente cuenta con la propiedad "HasMinValue" y "MinValue", lo que te permite asignar un valor mínimo válido, que sería cero en tu caso. En pocas palabras, solo con asignar dos propiedades te quitas de problemas.

Para instaslar las jedi, al descomprimir el archivo Zip, este incluye dos carpetas, JCL y JVCL, en cada una de ellas, existe una carpeta Install, con un archivo "Install" que debes ejecutar, el truco está en que primero hay que instalar las JCL y luego instalar las JVCL. En pocas palabras, ejecutas el archivo "Install" de las JCL y luego el archivo "Install" de las JVCL.
__________________

Responder Con Cita
  #7  
Antiguo 15-05-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 22
enecumene Va por buen camino
Agregando lo dicho por nuestro amigo Contra, antes de instalar las bibliotecas Jedi, debes tener cerrado el delphi, de lo contraio no te va a instalar. ah y otra cosa, ves lo que te comenté anteriormente, ya Contra te explicó como instalar las JEDI. .

Saludos.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #8  
Antiguo 15-05-2008
axlrafael axlrafael is offline
Miembro
 
Registrado: abr 2008
Posts: 36
Poder: 0
axlrafael Va por buen camino
Gracias amigos voy a instalar los complementos de una vez para ver si puedo hacerlos asi.

Saludos
Responder Con Cita
Respuesta



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
Como crear un bucle con TEdit's axlrafael OOP 12 08-05-2008 19:22:48
Pasar demas datos de un DBGRID a TEDIT's Ericato Varios 5 09-03-2007 17:44:05
cambiar campo null a not null andressanchez Firebird e Interbase 8 18-09-2006 22:00:09
Como valido un null?? jbetancurt Firebird e Interbase 2 11-11-2004 16:19:39
Como puedo grabar un NULL en la BD? furniman Varios 2 23-03-2004 11:36:36


La franja horaria es GMT +2. Ahora son las 21:15:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi