Rutina para Validar Campos

[[oscarac]]

mmm para que me funcione he tenido que crear una Variable de Tipo Variant

Código Delphi [-]
 
procedure TfrmingresoComprobantesVariosd.edtDocumentoExit(Sender: TObject);
Var _Doc1 : Variant;
begin
 _Doc1 := edtDocumento.Text;
  if not ValidarBlanco (_Doc1) then
    edtDocumento.SetFocus;
end;

esta bien asi? existe una mejor forma de hacerlo?

[ecfisa]

Hola oscarac.

A mi pareciera funcionarme bién de este modo también:

Código Delphi [-]
...
implementation

function TForm1.ValidarCampo(Campo: Variant): Boolean;
begin
  Result:= Campo <> '';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not ValidarCampo(Label1.Caption) then
   ShowMessage('campo vacio');
  if not ValidarCampo(Memo1.Text) then
   ShowMessage('campo vacío');
  if not ValidarCampo(Edit1.Text) then
   ShowMessage('campo vacío');
end;

Pero no sé si es lo que buscas...

Saludos.

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