Rutina para Validar Campos

[[oscarac]]

y como haria para no colocar el codigo en cada onExit?

[ecfisa]

Realmente no veo la forma, quizá exista una manera pero al menos yo, no la sé.

Lo único que se me ocurre, para reducir la taréa, es que recorras los componentes (Components[n] o Controls[n]) y asignes el evento en una sola pasada.

Saludos.

[[oscarac]]

has visto el componente ScreencolorCenter? que esta en el FTP?
lo que hace eso es pintar de un color cuando entra el foco al edit y cuando sale del edit... entonces tenia la idea de hacer algo parecido pero que cuando salga del edit me valide el campo vacio o no (teniendo en cuenta el tema del tag o del array o de algun artificio que me digas q edits si y que edits no se validan)

[[oscarac]]

Empezado por oscarac

has visto el componente ScreencolorCenter? que esta en el FTP?
lo que hace eso es pintar de un color cuando entra el foco al edit y cuando sale del edit... entonces tenia la idea de hacer algo parecido pero que cuando salga del edit me valide el campo vacio o no (teniendo en cuenta el tema del tag o del array o de algun artificio que me digas q edits si y que edits no se validan)

parece que ya no hay nadie mas de madrugada !!

[ecfisa]

Hola oscarac.

Limitándome a los componentes estandard de Delphi, estuve probando a ver si le encontraba la vuelta de evitar el evento OnExit con la propiedad ActiveControl, GetPropInfo y GetPropValue.

Código Delphi [-]
...
function TForm1.ValidarCampo(AComponent: TComponent; Campo: Variant): Boolean;
begin
  Result:= True;
  if AComponent.Tag = 1 then  // 1 = valida
    Result:= VarIsEmpty(Campo);
end;

procedure TForm1.ActiveControlChange(Sender: TObject);
var
  PropInfo: PPropInfo;
begin
  PropInfo:= GetPropInfo(ActiveControl, 'Text');
  if (PropInfo <> nil) and not
   ValidarCampo(ActiveControl,GetPropValue(ActiveControl,'Text')) then
     ShowMessage('Error campo vacío');
  ...
end;

Y si bíen evalúa ,lo hace al ingreso del control y no a la salida, y ya estoy medio dormido para seguir probando...
De todas formas tendrías que reescribir código y no es lo que buscas según leo en uno de tus últimos mensajes.

Creo que crearte o derivar un componente que evalue el valor del campo en el evento OnExit va a ser la opción más sencilla. Pero no te extrañe que mañana encuentres respuesta, hay muchísimos que de este tema saben mas que yo.

Un saludo.

[[Lepe]]

Yo recorrería todos los campos si está en modo edición y por ejemplo, poner el icono de una alerta junto al db/edit que es requerido.

Creo recordar el dataset tiene el evento OnValidate, que es para eso.

No lo hagas en el OnExit, porque el control actual no se validará en caso de que uses SpeedButtons.

[[oscarac]]

debo insistir con el tema....

asi como eta el componente ScreenColorCenter (en el FTP) tambien hay otro componente que solo lo cococas en el form y te cambia el tab x enter

algo asi se podria hacer para validar que el campo no este vacio?

[[newtron]]

Hola.

Yo pienso que las validaciones para campos vacíos deberías de hacerlas al pulsar el botón de grabar no en el exit del campo puesto que de esa manera podrías recorrer todos los campos sin problemas rellenandolos según te vaya interesando y finalmente pulsar en grabar. A mi particularmente se me hace muy engorroso que al coger el foco un campo no pueda salir sin rellenarlo, puedo querer rellenarlo posteriormente y antes rellenar otro distinto.

Saludos

[[José Luis Garcí]]

Hola Oscarac, no se si te valdrá, pero en el Ftp del Club tienes dos componentes para campos Edits y DbEdits, son el EditDefault y DbeditDefault, si miras la opción TexDefault, si el campo lo dejas en blanco se rellena con este texto, te serviría para campos que no pueden ser Null y como sistema de ahorro en el Trabajo, te pongo una comparación que lo entiendas, en el Campo País de tu aplicación (he visto que eres De Perú) sería generalmente TextDefault:=Perú, entonces simplemente si no es otro país el dato no se rellena se pasa al siguiente y automáticamente se rellena con Perú.

Ten en cuenta la opción Types que contiene los siguientes tipos:
XDate---------------------Para Fechas
XMail----------------------Para email
XIP-----------------------Para IP
XMoney-------------------Número Realeso Double con Formato Moneda
XNumber------------------Números Entero
XNumberFormat-----------Números Enteros con formato
XPhone-------------------Teléfono
XPor----------------------Porcentaje
XReal---------------------Número Reales o Double
XText--------------------Para Texto
XTime--------------------Para Fecha


Se que tiene otras muchas Funciones, pero podrás mirarlas mejor en el pdf que hay adjunto en el zip que contiene los archivos pas.