Validadores para Delphi

[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