Função POS, pegar segundo Campo é Possivel?

Delphi

10/01/2008

Como encontrar a posição da segunda parte do Texto usando POS()?

LinDados := ´CTPS: 0497 EXP: / / PIS: 159149 EXP: / /´;

PosIni := Pos(´EXP:´,LinDados);

Resulta = 13, porem preciso pegar a posição do segundo ´EXP:´, que resultaria em 45.

É possivel usar a função POS(), para pegar esta segunda coluna?


Wgm8

Wgm8

Curtidas 0

Respostas

Djjunior

Djjunior

10/01/2008

LinDados := ´CTPS: 0497 EXP: / / PIS: 159149 EXP: / /´;

PosIni := Pos(´EXP:´,LinDados);
PosIni := Pos(´EXP:´,Copy(LinDados + 4, PosIni, lenght(LindDados);


GOSTEI 0
POSTAR