Máscara de Rut Chileno
 

Estimados, tengo el siguiente problemita. El formato del rut Chileno es 12.345.678-9 el cual manejo con un componente maskedit en su evento OnExit

Código Delphi [-]
maskedit1.EditMask:='00.000.000-C;1;_';

con esto cuando el usuario ingresa un número de 9 dígitos esto funciona. El problema es que algunos rut tienen 8 dígitos por lo que al momento de aplicar la máscara queda así 12.345.678-_ provocando un error de ingreso. Existe alguna forma de ingresar un '0' o un espacio vacío a la izquierda cuando el rut sea de 8 dígitos?. Gracias.

Agrega esto en el evento OnExit.

Código Delphi [-]
// Si la longitud es menor a 9 digitos, que agregue un 0 delante
if (Length(RUT.Text < 9) then RUT.Text := '0'+RUT.Text;

Mascara: !99.999.999;1;0

Edit1 en modo solo lectura. Te admitirá todos los rangos de RUT. Puedes ampliar la mascara para RUT más largos como 100.000.000-K -> !999.999.999;1;0

Código Delphi [-]
procedure TForm1.MaskEdit1Change(Sender: TObject);
Var RutParcial: ShortString;
begin
     RutParcial := IntToStr(StrToInt(QuitaMiles(MaskEdit1.EditText)));
     Edit1.Text:= '-' + DigitoVerificador(RutParcial);
end;

Hay que entender que el dígito verificador tiene su uso, que es justamente verificar. Esta unit te calcula el dígito cuando vas ingresando. Ahí tu ves como lo usas. Yo lo deje así, cosa que cuando ingresen el RUT (ingresar sin - ni dígito verificador), el usuario pueda comprobar si coincide el número verificador con el que le están indicando en el momento.

Adjunto Unit para competar :cool:

Sencillo y funciona perfecto. Muchas gracias. :D

Muchas gracias a ambos, ahora gracias a ustedes mu aplicación funciona de maravillas. :D