Copiando sobrenomes de email

Delphi

27/01/2004

Bom dia!
Amigos, preciso compiar de strings os nomes que veêm após o ´@´.
Alguém pode me indicar o comando?

Obrigado

Reginaldo


Marcos10

Marcos10

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

27/01/2004

você pode usar estes dois comandos
[b:c7f8b16fa9]Delete[/b:c7f8b16fa9] com o comando POS


GOSTEI 0
Beppe

Beppe

27/01/2004

Copy(Email, Pos(Email, ´@´) + 1, MaxInt);



GOSTEI 0
POSTAR