Escribir en Edit

[lucas05]

Hola, espero que puedan ayudarme, tengo un Edit en el que el usuario ingresa una serie de números con el siguiente formato: 25-456-1
Como puedo hacer que cuando el usuario este escribiendo los números en el Edit, se vaya agregando en forma automática el signo -


Desde ya muchas gracias.

[ecfisa]

Hola lucas.

Creo que te va a resultar mucho mas sencillo usar un TMaskEdit, por ejemplo para tu caso:

procedure TForm1.FormCreate(Sender: TObject);
begin
MaskEdit1.EditMask:= '99-999-9;1; '; // definir la máscara (se puede hacer desde el Object Inspector)
end;


Si luego deseas el resultado sin los guiones, podes hacer:

var
str : string;
begin
str := StringReplace(MaskEdit1.Text, '-', '', [rfReplaceAll]);
...


Saludos. :)

[lucas05]

Hola ecfisa, gracias por responder, voy a intentar con tu sugerencia.