Pagar valor String

Delphi

23/12/2006

Ola pessaol eu tenho um string com o valor (01.01.001 - Despesas)

Gostaria de saber como pegar somente o valor que vem antes do (-) menos os espacos exemplo: (01.01.001).

Desde ja muito obrigado e um feliz natal a todos.

Luciano Ramos :D


Luciano.sul

Luciano.sul

Curtidas 0

Respostas

Joaoshi

Joaoshi

23/12/2006

Colega,

suaString := ´01.01.001 - Despesas´

Copy(suaString,1,Pos(´-´,suaString)-1))

Espero ter ajudado e Feliz Natal tambem.


GOSTEI 0
POSTAR