APAGAR CARACTERES DE UMA STRING A PARTIR DE UM DETERMINADO CARACTER EM DIANTE

Delphi

04/01/2021

Boa tarde, Estou com o seguinte problema. Recebo o arquivo de remessa com os pagamentos de boletos dos nossos clientes. Recebo numa string o campo referente ao codigo do cliente. Acontece que antes trazia somente o codigo e agora além do codigo vem a parcela do mês exemplo: 401-01 ou 130-02. Preciso eliminar a partir do caracter "-" em diante. Como faço?
Gilson Silva

Gilson Silva

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

05/01/2021


Utilize a função Pos().
pode ser assim:
strCodigo := strLinha;
nPosTraco := System.Pos('-', strCodigo);

if (nPosTraco > 0) then // se encontrou o traco
  strCodigo := System.StrUtils.LeftStr(strCodigo,nPosTraco-1);



GOSTEI 1

Mais Respostas

Gilson Silva

Gilson Silva

04/01/2021

Utilize a função Pos().
pode ser assim:
strCodigo := strLinha;
nPosTraco := System.Pos('-', strCodigo);

if (nPosTraco > 0) then // se encontrou o traco
  strCodigo := System.StrUtils.LeftStr(strCodigo,nPosTraco-1);


Mais uma vez muito obrigado pela ajuda. Deu certo.
GOSTEI 0
POSTAR