MASKEDIT

Question

Tenho um Maskedit de Conta Corrente assim: 0000000000-0 , como fa�o pra pegar somente os 10 primeiros digitos e depois pegar s� o �ltimo? Gostaria tamb�m de saber se ao gravar o conte�do do Maskedit n...

Lucianoruz · Answer

Ol�, se vc colocar o EditMask neste formato 9999999999-9;0;_ ele grava sem o literal somente os numeros, se vc colocar 1 no lugar do 0 vai gravar com o tra�o.

para pegar os 10 primeiros numero vc pode fazer assim

copy(MaskEdit1.Text,1,10) para pegar os 10 1�
copy(MaskEdit1.Text,11,1) para pegar o ultimo digito

Paullsoftware · Answer

para pegar somente os 10 primeiros voc� pode fazer assim:
var
StrMask,
Aux,Rest:String;
begin
StrMask := MaskEdit1.Text;
aux := copy(StrMask,1,10);//pega os 10 primeiros
Rest := copy(StrMask,11,1);//pega o �ltimo
ShowMessage(Aux);
ShowMessage(Rest);
end;

quando a gravar no banco, o digito verificador do MaskEdit � o que fica entre os ponto e virgula (;) se voc� informar 1 (um) ele copia com a m�scara se colocar 0 (zero) ele copia somente o conteudo!
0000000000-0;[b:45d67b7d09]0[/b:45d67b7d09];_

espero ter ajudado :wink:

Paullsoftware · Answer

[quote:bce31a4de3=�lucianoruz�]Ol�, se vc colocar o EditMask neste formato 9999999999-9;0;_ ele grava sem o literal somente os numeros, se vc colocar 1 no lugar do 0 vai gravar com o tra�o.para pegar os 10 primeiros numero vc pode fazer assimcopy(MaskEdit1.Text,1,10) para pegar os 10 1�copy(MaskEdit1.Text,11,1) para pegar o ultimo digito[/quote:bce31a4de3]caramba! cliquei em Responder e fui resolver umas coisas quando enviei voc� j� tinha respondido  :lol:  :lol:  :lol:...

Douglass · Answer

hehe Muiiiiito obrigado aos dois xDproblema resolvido..Abra�os....

F�rum MASKEDIT #353096