F�rum retirar a mascara de entrada quando receber os dados #402100

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

Curtir t�pico

+ 0

Responder

Posts

01/06/2011

Marco Salles

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

Responder

Gostei + 0

01/06/2011

Rodrigo Mattos

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.

Responder

Gostei + 0

01/06/2011

Diogenes Dourado

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

Grato
Diogenes

Responder

Gostei + 0