MASKEDIT

Delphi

06/02/2008

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 num campo ele grava no formato da Mask ou ele grava somente os números, Ex.: 1234567891-1 ou 12345678911.
Desde já agradeço,
Abraços.


Douglass

Douglass

Curtidas 0

Respostas

Lucianoruz

Lucianoruz

06/02/2008

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


GOSTEI 0
Paullsoftware

Paullsoftware

06/02/2008

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:


GOSTEI 0
Paullsoftware

Paullsoftware

06/02/2008

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


caramba! cliquei em Responder e fui resolver umas coisas quando enviei você já tinha respondido :lol: :lol: :lol:


GOSTEI 0
Douglass

Douglass

06/02/2008

hehe Muiiiiito obrigado aos dois xD
problema resolvido..
Abraços.


GOSTEI 0
POSTAR