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 

Obter String depois de caracter [RESOLVIDO]

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


Registrado: Sexta-Feira, 24 de Fevereiro de 2017
Mensagens: 80

MensagemEnviada: Ter Out 22, 2019 10:05 am    Assunto: Obter String depois de caracter [RESOLVIDO] Responder com Citação

Olá pessoal, nessa string:
'64645b - 4333$ - 76575oa - campo logradouro inválido'

Preciso obter o texto sempre após o terceiro (-) traço, suponho que preciso contar os traços, obter a posição do terceiro e usar o copy, mas não estou conseguindo, alguém com mais experiência pode me ajudar?

Obrigado


Editado pela última vez por jrman em Ter Out 22, 2019 10:44 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11469

MensagemEnviada: Ter Out 22, 2019 10:32 am    Assunto: Responder com Citação

Bom dia,

Segue sugestão de código para testes caso você não esteja utilizando uma versão antiga do Delphi:

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringList;
begin
  Lista := TStringList.Create;
  try
    Lista.Delimiter := '-';
    Lista.StrictDelimiter := true;
    Lista.DelimitedText := '64645b - 4333$ - 76575oa - campo logradouro inválido';
    if Lista.Count >= 4 then
        ShowMessage( Trim(Lista[3]) );
  finally
    Lista.Free;
  end;
end;


Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-apartamento
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jrman
Novato
Novato


Registrado: Sexta-Feira, 24 de Fevereiro de 2017
Mensagens: 80

MensagemEnviada: Ter Out 22, 2019 10:43 am    Assunto: Responder com Citação

Obrigado Imex, era isso!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jheckson
Novato
Novato


Registrado: Domingo, 30 de Outubro de 2016
Mensagens: 27

MensagemEnviada: Qui Out 24, 2019 8:57 am    Assunto: Responder com Citação

jrman escreveu:
Obrigado Imex, era isso!


Ou vc pode fazer assim!


Código:

function GetLogradouro(const AString: String): String;
begin
   Result:= Copy(AString, PosEx('-', AString, 24) + 1, Length(AString)) ;
end;


Tem que adicionar na Uses, StrUtils.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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