Contar vcaracteres

[jhcaboverde]

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

[[basti]]

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.

[JoanKa]

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

[[Lepe]]

quizás algo así??

Código Delphi [-]

// en el OnkeyPress

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

saludos

[jhcaboverde]

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.

Empezado por JoanKa

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