Validadores para Delphi

[mvlasic]

estuve trabajando con asp.net y existían unos componentes que validaban otros componentes, como por ejemplo Texbox (edit). Había componentes para validar que no estuvieran vacíos, para validar teléfonos, direcciones de mail, etc. En donde el componente te administraba el mensaje de error y ponía el foco en el componente con el que estaba relacionado.

No se si me he explicado bien, tengan en cuenta que soy nuevo en el foro y no manejo mucho de los términos que tienen incorporados ustedes.

Gracias a todos,

[PepeLolo]

Hola,

Pues lo tienes fácil, tu mismo lo estas diciendo; bajo esa premisa yop me crearía una unit en el que incluiría las validaciones de los componentes que te fueran haciendo falta. Ejemplo:

Validando un TEdit:
Código Delphi [-]procedure TEditValida(Sender :TObject; Label, mensaje:String); begin IF TEdit(Sender).Text = '' then begin TEdit(Sender).SetFocus; Raise Exception.Create('El campo ' + QuotedStr(label) + ' ' + mensaje); end; end.


Validando un TDBEdit:
Código Delphi [-]procedure TEditValida(Sender :TObject; mensaje:String); begin IF TDBEdit(Sender).Text = '' then begin TDBEdit(Sender).FocusControl; Raise Exception.Create('El campo ' + QuotedStr(TDBEDit(Sender).DisplayLabel) + ' ' + mensaje); end; end.


Así sucesivamente con todas las clases de tipos de datos a validar que necesites.

[[Héctor Randolph]]

La librería JEDI (el clásico JVCL) contiene entre sus múltiples componentes algunos cuya función es precisamente validar propiedades de los controles en un formulario (JvValidator y jvErrorIndicator).

Colocas el componente JvValidator en tu formulario y le indicas el tipo de validación que deseas en cada control y sobre cuál propiedad; por ejemplo, en la propiedad Text de un Edit puedes validar: not null, compare, range, custom, etc.

Después asocias el componente a jvErrorIndicator para que cuando la validación no se cumpla envíe un mensaje pero además el usuario puede identificar visualmente que algo está mal. Se dibuja un icono parpadeando a un lado del control con el fin de alertar al usuario para que capture la info correctamente, además al acercar el puntero del ratón al icono que parpadea, muestra un Hint indicando cuál fue el problema.

Saludos

[PepeLolo]

uff que paso con el código

Pues lo tienes fácil, tu mismo lo estas diciendo; bajo esa premisa yop me crearía una unit en el que incluiría las validaciones de los componentes que te fueran haciendo falta. Ejemplo:

Validando un TEdit:

Código Delphi [-]
procedure TEditValida(Sender :TObject; Label, mensaje:String);
begin
  IF TEdit(Sender).Text = '' then 
   begin
      TEdit(Sender).SetFocus;
       Raise Exception.Create('El campo ' + QuotedStr(label) + ' ' + mensaje);
   end;
end;

Validando un TDBEdit:

Código Delphi [-]

procedure TEditValida(Sender :TObject; mensaje:String);
begin
 IF TDBEdit(Sender).Text = '' then
    begin
      TDBEdit(Sender).FocusControl;
       Raise Exception.Create('El campo ' +  QuotedStr(TDBEdit(Sender).DisplayLabel) + ' ' + mensaje);
    end;
end;

Así sucesivamente con todas las clases de tipos de datos a validar que necesites.