Re: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
Os componentes que descendente de "TCustomEdit", tem uma propriedade chamada "MaxLength" quando zero (defalut ) fica sem limite para digitação, basta vc mudar esta propriedade para 8 que seu problema sera resolvido. Eduardo Edison Garcia escreveu: > 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 > > > > > ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ -- < 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
RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
Vc poderia limpar o segundo edit quando o evento onenter dele fosse executado... mas issu nem sempre seria viável, pois as vezes o usuário sai do campo e quando volta... danou-se perdeu td q digitou... Outra coisa q vc pode tentar fazer é não jogar automaticamente o foco pro outro edit. Vc pode deixar ele digitar o q ele quiser no primeiro edit, dai quando ele sair, vc valida td e corta td a partir dos oito caracteres... Espero ter ajudado... Tamara Clemente - Suporte Técnico Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de Informática PABX: (55-11) 5071-2748 [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> www.moked.com.br <http://www.moked.com.br/> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison Garcia Enviada em: sábado, 2 de setembro de 2006 05:02 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 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< 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
Re: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
Sem dúvida funciona, mas o problema é que na hora de fazer o accept na Edit2, o evento oncenter também funciona e lá vem um clear que não desejaria ter. Depois de muito quebrar a cabeça, ( e não resolver), acho que a única solução seria se existisse ( ou se alguem saiba como fazer) limpar o ( ou algum) buffer de leitura do teclado (idem scanner) que sem dúvida existe. De qualquer forma, obrigado Edison - Original Message - From: "Gilson" <[EMAIL PROTECTED]> To: Sent: Sunday, September 03, 2006 5:39 PM Subject: RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit Experimente colocar no evento OnEnter do edit2 algo como: Edit2.Clear; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison DRP Enviada em: sábado, 2 de setembro de 2006 12:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit 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: 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 >>>>> 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
RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
Experimente colocar no evento OnEnter do edit2 algo como: Edit2.Clear; -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Edison DRP Enviada em: sábado, 2 de setembro de 2006 12:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit 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: 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 >>>>> 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
Re: RES: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
Vc também poderia ao invés de usar um TEdit, usar um TMaskEdit é lá colocar a máscara desejada. Abraços. Gilson escreveu: > 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 >>>>> <*> 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
Re: [delphi-br] Como eliminar caracteres excedentes em um acept de TEdit
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: 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
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 >>>>> <*> 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
[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 > <*> 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