Hola naty_prog.
Otra solución puede ser:
Código Delphi
[-]
...
private
procedure TuCampoSetText(Sender: TField; const Text: String);
end;
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
DataSet.FieldByName('CAMPO1').OnSetText := TuCampoSetText;
DataSet.FieldByName('CAMPO3').OnSetText := TuCampoSetText;
end;
procedure TForm1.TuCampoSetText(Sender: TField; const Text: String);
begin
if Length(Text) <> 8 then
begin
MessageBeep(MB_ICONERROR);
Abort;
end;
end;
Asigné el evento
TuCampoSetText por código para que sea mas entendible, pero si tenés creados los campos persistentes, podés hacerlo desde el
Object Inspector.
Saludos.