Tente algo como abaixo:
s := "123456" ou " 123456-A" ou " 1234-" ou " 123456" ou " 123456-A"
ou " 1234-"
Código:
s := Trim(s);
numero := LeftStr(s,Length(s) - Pos('-',s));
Marlon Andrei
Thread System - Sites and Softwares
( 55 (16) 9209 8960 - Ribeirão Preto - SP
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Joao Morais
Enviada em: quinta-feira, 3 de janeiro de 2008 14:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Pegar caracteres dentro de string variável
Junior wrote:
> As vezes a string é 123456
>
> As vezes a string é 123456-A
>
> As vezes a string é 1234-
>
> Alguém tem uma sugestão de como eu posso fazer para pegar sempre os
NÚMEROS,
>
> e desprezar o traço - o que está a direita dele ?
Algo assim?
VPos := Pos('-', SuaString);
if VPos = 0 then
VPos := Length(SuaString) + 1;
SuaNovaString := Copy(SuaString, 1, VPos - 1);
Falta tirar os espaços em branco da frente. Trim?
--
Joao Morais
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
