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.