establecer un numero limitado de caracteres

[naty_prog]

hola miembros de Club Delphi. les comento que tengo un form en el cual hay un dbedit que es utilizado para el numero de documento;necesito establecer un control de los datos que se ingresan.lo que deseo saber es como hacer para que solo puedan ingresar si o si 8 digitos(numeros) ya que todos los nº de documento poseen esa cantidad,"no se puede ingresar de menos",ese es el problema que quiero resolver porque lo demas lo tengo echo.
desde ya gracias a todos y espero ansiosa sus respuesta y colaboración.Saludos....

[ecfisa]

Hola naty_prog.

Podés usar propiedad MaxLength del TDBEdit.

Saludos.

[naty_prog]

hola, mira,tengo una sentencia echa para esa propiedad para cuando se quiere ingresar mas de 8 digitos, lo que yo necesito es para cuando se ingresa de menos.me sirve igual esta propiedad?
gracias por tu respuesta.

[marcoszorrilla]

En el evento OnExit:

Código Delphi [-]
If Length(Dbedit1.Text) <  8 then
begin
ShowMessage('Atención. Debe ingresar 8 caracteres.');
DbEdit1.SetFocus;
end;

Un Saludo

[ecfisa]

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;
  // Asignalo a los demás campos en que desees evaluar la condición ( <> 8)
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.

[naty_prog]

muchisimas gracias por sus respuestas,no saben la gran ayuda que nos dan a mi compañero de tesis y a mi, ya que no nos dan los tiempos para avanzar con la misma pero hacemos lo que podemos.mis saludos y mejores deseos a todos...hasta luego