| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jonathanfirst Aprendiz

Registrado: Sábado, 28 de Abril de 2012 Mensagens: 187
|
Enviada: Qua Jul 23, 2014 5:50 pm Assunto: Ler os 2 primeiros caracteres de um string [RESOLVIDO] |
|
|
Boa tarde, tenho uma string onde ficam dados do tipo:
VE0001
VE0002
VE0003
VE0004
OS0001
OS0002
CO0001
VE0005
VR0001
etc.
Estou tentando fazer uma verificação, quando eu clicar na string tem que ler os 2 primeiros caracteres e mostrar se é "VE" ou "OS" etc
não conheço nenhuma função que leia somente os 2 primeiros caracteres, alguem pode ajudar ? _________________ O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/
Editado pela última vez por jonathanfirst em Qui Jul 24, 2014 8:55 am, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
GustavoToyota Profissional


Registrado: Domingo, 9 de Outubro de 2011 Mensagens: 605 Localização: Sorocaba - SP
|
Enviada: Qua Jul 23, 2014 6:03 pm Assunto: |
|
|
| Código: | | DoisCaracteres := Copy('VE0001', 1, 2); |
|
|
| Voltar ao Topo |
|
 |
johnny-walker Moderador


Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
Enviada: Qui Jul 24, 2014 12:16 am Assunto: |
|
|
Utilize duas funções:
Pos() e AnsiIndexStr() e mais um case, com estes vc cria uma só função para verificar se é Venda ou OS:
http://www.delphibasics.co.uk/RTL.asp?Name=AnsiIndexStr
| Código: | case AnsiIndexStr(Source, ['VE', OS]) of
0: Venda...;
1: OS...:
end;
|
]bye _________________ P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
 |
jonathanfirst Aprendiz

Registrado: Sábado, 28 de Abril de 2012 Mensagens: 187
|
Enviada: Qui Jul 24, 2014 8:53 am Assunto: |
|
|
Usei a dica do gustavo, funcionou perfeitamente
Obrigado a todos _________________ O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/ |
|
| Voltar ao Topo |
|
 |
|