|
Hola:
Pon cuatro edits, uno para cada sección controlando en cada uno la entrada de solo letras o solo números según corresponda.
Después rellenas la tercera sección con ceros delante para el número hasta los 7 dígitos que parece que debe llevar
edit3.text := RighStr ( '0000000' + edit3.text, 7 );
y después juntas los 4 metiendo entre ellos el guión
CodigoFinal := edt1.text + '-' + edt2.text + '-' + edt3.text + '-' + edt4.text
Un saludo.
|