Caro Gilson Sua sugestão não resolve, porque o accept vai sendo analisado caracter a caracter digitado, de forma que, ao atingir o 8o. caracter, é feita a validação do mesmo que, se for boa, o processo segue, caso contrário uma msg de erro é mostrada. Desta forma, ao processar os primeiros 8 caracteres e aceitá-los, passando desta forma ao proximo TEdit, os restantes caracteres já foram lidos pelo scanner e são lançados na Edit 2. Deu para entender o que ocorre ? Retirar os primeiros 8 caracteres isto já é feito e sem problemas, o que não consigo é evitar que caracteres excedentes sejam lançados no proximo campo de accept.(Edit2) De qualquer forma obrigado Edison
----- Original Message ----- From: "Gilson" <[EMAIL PROTECTED]> To: <delphi-br@yahoogrupos.com.br> Sent: Saturday, September 02, 2006 8:42 AM Subject: RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit Tente assim: No exento onExit do edit coloque Copy(edit1.text,1,8); Desta forma, vc pode fazer os testes necessários usando apenas os 8 primeiros caracteres do edit. []'s Gilson -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison Garcia Enviada em: sexta-feira, 1 de setembro de 2006 22:31 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit Prezados colegas Estou quebrando a cabeça para resolver o seguinte problema: em uma TEdit onde espero receber uma string com 8 caracteres,faço um exame dos caracteres digitados e ao atingir length = 8, testo se é o que deveria ser digitado e estando OK, passo adiante para uma nova TEdit. Até ai tudo bem. Mas, se o usuário ao invez de digitar, resolver utilizar um scanner e ler um código de barras com mais de 8 caracteres, o que ocorre é que, os primeiros 8 caracteres são examinados e se aceitos, o sistema vai adiante, e coloca os caracteres excedentes lidos pelo scanner na TEdit seguinte, o que não quero e eventualmente leva a erro. O que quero é ler os primeiros 8 caracteres, examina-los e desprezar os eventualmente presentes caracteres excedentes. alguma sugestão ? obrigado Edison Garcia -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
