retirar a mascara de entrada quando receber os dados

Delphi

01/06/2011

Bom dia   Pessoal mais uma venho aqui para pedir ajuda.   Estou ajudando a montar um sistema e gostaria de saber como faço para que quando um edit receber os dados de um leitor de codigo de barras o edit retirasse  as mascara ficasse somente com os dados como o exemplo abaixo   As vezes irão ter dados deste modo 11.115-115-5 ou assim 11115115-5 outras vezes sem mascara 111151155   Pois o sistema ira receber o nono digito e ira executar alguns comandos, usanda as mascaras em um maskedit ele não executa os comando     Grato   Diogenes    
Diogenes Dourado

Diogenes Dourado

Curtidas 0

Respostas

Marco Salles

Marco Salles

01/06/2011

Esses leitores por padrão , mas vc tb pode programa-los para alterar o formato do ultimo caracter recebido
geralmente é Tab . Assim no evento onexit do edit vc percorre a string modificando-a , isto é , retirando a mascára
e so deixando os numerais
GOSTEI 0
Rodrigo Mattos

Rodrigo Mattos

01/06/2011

amigo, usa essa função:
function ClrDig(fField : String): String;
var
  I : Byte;
begin
  Result := '';
  for I := 1 To Length(fField) do
     if fField [I] In ['1','2','3','4','5','6','7','8','9','0'] Then
       Result := Result + fField [I];
end;



Depois você pode utilizar assim, exemplo:
ClrDig(Edit1.Text) // VAI DEIXAR SÓ OS NÚMEROS




Espero ter Ajudado.

GOSTEI 0
Diogenes Dourado

Diogenes Dourado

01/06/2011

Olá amigos
Muito obrigado pelas informações ajudou e muito.
Gostaria de agradecer por poder contar com a experiência

Grato
Diogenes 
 
GOSTEI 0
POSTAR