Ver Mensaje Individual
  #2  
Antiguo 21-05-2003
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
Dbedit1.Text:=Copy(Dbedit1.text,1,4);
end;


Un Saludo.
Responder Con Cita