Rutina para Validar Campos

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

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