ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ler os 2 primeiros caracteres de um string [RESOLVIDO]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187

MensagemEnviada: Qua Jul 23, 2014 5:50 pm    Assunto: Ler os 2 primeiros caracteres de um string [RESOLVIDO] Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
GustavoToyota
Profissional
Profissional


Registrado: Domingo, 9 de Outubro de 2011
Mensagens: 605
Localização: Sorocaba - SP

MensagemEnviada: Qua Jul 23, 2014 6:03 pm    Assunto: Responder com Citação

Código:
DoisCaracteres := Copy('VE0001', 1, 2);
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Jul 24, 2014 12:16 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187

MensagemEnviada: Qui Jul 24, 2014 8:53 am    Assunto: Responder com Citação

Usei a dica do gustavo, funcionou perfeitamente

Obrigado a todos
_________________
O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB