Rutina para Validar Campos

[ecfisa]

Hizo pif! con un CheckBox, cuando me acordé de la función VarIsEmpty...

Creo que así te va a funcionar:

Código Delphi [-]
function TForm1.ValidarCampo(Campo: Variant): Boolean;
begin
  Result:= VarIsEmpty(Campo);
end;

Permite por ejemplo:

Código Delphi [-]
var
  v: Integer;
begin
  if not ValidarCampo(Edit1.Text) then
   ShowMessage('campo vacío');
  if not ValidarCampo(CheckBox1.Checked) then
   ShowMessage('no chequeado');
  if not ValidarCampo(v) then
    ShowMessage('sin valor');

También tenés la función VarIsNull que compara si el valor es Null.

Saludos.

[[oscarac]]

funciona a la perfeccion... parece que ya voy aprendiendo porque al menos la idea la tenia....

pero me salta otra idea y a la vez pregunta

como evitar colocar ese codigo en cada evento OnExit del campo o edit ?
si eso se pudiera hacer (evitar colocar el codigo,, crear un componente que me valide todos los edits o dbedits que tenga el form), como poder hacer para que solo me valide algunos edits y otros edits puedan quedar en blanco

la idea que se me ocurre es crear un arrar y pasarlo como parametro algo asi

Código Delphi [-]
 
Validaciones : array[1..6] of String = ('0','0','1','0','0','1')

entonces que solo se validen los que tienen '1' y no '0', pero como saber que "numero" de objeto tiene el foco en ese momento para poder compararlo con el arrar

se entiende?

[ecfisa]

Te entiendo. Podés utilizar la propiedad Tag para ese efecto, pero tendrías que pasar como parámetros el componente y el campo.

Por ejemplo, si queres que no se valide el primer componente harías: Edit1.Tag=0, CheckBox1.Tag=1 y Edit2.Tag=1

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.Button1Click(Sender: TObject);
begin
  if not ValidarCampo(Edit1, Edit1.Text) then
   ShowMessage('campo vacío');
  if not ValidarCampo(CheckBox1,CheckBox1.Checked) then
   ShowMessage('no chequeado');
  if not ValidarCampo(Edit2, Edit1.Text) then
   ShowMessage('campo vacío');
end;

Saludos.

[[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.