Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-10-2007
Avatar de walito
walito walito is offline
Miembro
 
Registrado: jun 2005
Posts: 121
Poder: 19
walito Va por buen camino
dataFormChecker

Como ya habia comentado anteriormente, vamos a mostrar como funciona esta clase con algunos ejemplos y tambien pondre el codigo a disposicion de todos los interesados.

Vamos al grano, supongamos que tenemos un formulario en el cual tenemos que cargar los siguientes datos:
- Nombre
- Apellido
- Edad
- GastosMensuales

Como vemos Nombre y Apellido son de tipo texto, Edad es un Entero y GastosMensuales es un Float.

Normalmente tendriamos que checkear uno por uno para verificar si no estan cargando un tipo de dato erroneo, donde por lo menos nos tomaria escribir unas 5 o 6 lineas por cada checkeo.

Esta clase propone usarlo de la siguiente manera:

Código Delphi [-]
procedure BtAgregarClick(Sender: TObject);
var
  misdatos: TMyData;
begin
  misdatos := TMyData.Create;
  misdatos.setKeyValue('nombre', EditNombre.Text);
  misdatos.setKeyValue('apellido', EditApellido.Text);
  misdatos.setKeyValue('edad', EditEdad.Text);
  misdatos.setKeyValue('gastosmensuales', EditGastosMensuales.Text);
  misdatos.addRule('nombre', 'Alerta: El nombre es requerido.', 'required');
  misdatos.addRule('nombre', 'Alerta: El nombre es requerido.', 'text');
  misdatos.addRule('apellido', 'Alerta: El apellido es requerido.', 'required');
  misdatos.addRule('apellido', 'Alerta: El apellido es requerido.', 'text');
  misdatos.addRule('edad', 'Alerta: La edad es numerico.', 'int');
  misdatos.addRule('gastosmensuales', 'Alerta: Los gastos son erroneos', 'float');
  misdatos.Free;
end;

En el ejemplo anterior tenemos la configuracion basica como para verificar si los datos ingresados son correctos, y vemos que con pocas lineas ya hemos checkeado los campos de carga.

Despues de esto ustedes tienen 2 formas de obtener los datos:

1) Si seguimos usando esta clase podrian pasar por parametro la instancia de la clase a alguna funcion que ustedes tengan y simplemente obtener los datos asi:

Código Delphi [-]
misdatos.getValue('nombre', 'text');
misdatos.getValue('apellido', 'text');
misdatos.getValue('edad', 'int');
misdatos.getValue('gastosmensuales', 'float', '0.00', '0');

Este metodo retorna String asi que solo basta con aplicar las funciones de conversión. Tambien vemos que el tipo float le podemos especificar como queremos que nos formatee el resultado.

2) La otra es simplemente usando los campos y usandolos como ustedes desee:

Código Delphi [-]
EditNombre.Text
EditApellido.Text
EditEdad.Text
EditGastosMensuales.Text

Espero que puedan probarlo y comentar sus experiencias y asi podamos hacer que este codigo se util apra todo el mundo.
Pueden descargar la version BETA desde este link: http://blog.phpgas.com.ar/datachecker/

Suerte y espero sus comentarios.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 13:31:26.


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