ActiveDelphi

[gilbertodias1]

Ola amigos do forum,

Tenho um texto em um memo

JOAOSILVA/17/MARANHAO/

como faço pra pegar até a ultima barra,
Um comando num button que limite até a ultima barra
/
e fique JOAOSILVA/

[forst]

Ae..

Amigo,
uma critica construtiva.. tente intender as coisas...
eu ja ti mostrei mais de uma vez como fazer a mesma coisa..
é simples.. eh soh usar a função Copy e Pos da maneira que eu falei nos outros post...

Showmessage( Copy(memo1.lines[0],1,Pos('/',Memo1.Lines[0])) );

esse codigo vai pegar da primeira linha... (o memo começa na linha 0.)
se precisar pegar de todas as linhas utilize o looping pra varrer as linhas que coloquei pra vc tb no outro post...

Flw..
[]s
_________________
Precisando de ícones para suas aplicações em Delphi?
www.soicones.com
Milhares de Ícones PNG de alta qualidade disponíveis em diversos tamanhos.

[abagattini]

Da uma olhada neste post
http://www.activedelphi.com.br/forum/viewtopic.php?t=36435