Contar vcaracteres
 

Lo que necesito realmente es contar los caracteres que se van escribiendo para cuando llegue a 6 ejecutar un procedimiento, es decir para ser mas claro en un dbgrid pongo un numero de tarjeta de 6 caracteres el resto de los datos que van en otros dbgrid estan oculto hasta tanto termine de escribir el #de tarjeta que a su vez al terminar compruebo que exista en una tabla.

que quiero:

llegar al sexto caracter realizar la comprobacion del numero en la tabla y si existe realizar el resto del procedimiento si no otro

Puedes controlarlo en el evento OnSetText del campo que se está introduciendo de la tabla, ahí compruebas la longitud del parámetro 'Text' y haces el resto.

Yo estoy haciendo algo parecido, pero no puedo obtener el resultado ya que yo quiero validar solo que se me ingrese 10 caracters y cuando llegue al decimo caracter salta a otro edit.

He usado la funcion var_cuenta_dni:=Length(EDT_Nif.Text); y lo puesto dentro del evento keypress y no me lo hace.

COmo puedo hacer esto ??

Gracias y saludos

quizás algo así??

Código Delphi [-]

// en el OnkeyPress

if lenght(dni.text) >=10 then
   Edit2.setfocus;

saludos

usa el conteo de caracteres
 

Amigo: si lo que quieres es que cuando llegue al decimo caracter salte a otro edit te mando un ejemplo:

procedure TForm1.DBEdit6Change(Sender: TObject);
begin
if length(dbedit6.text)=6 then
begin
DBEdit6.SelectAll;
dbedit2.setfocus;
end;
end;

espero que te sirva.