Fórum Função para retornar Logon do E-mail #282144
18/05/2005
0
Eu estava precisando de uma função que me retornasse o logon do email tipo entra um email: mmoreira@terra.com.br e a função me retorna apenas: mmoreira
entao eu fiz a seguinte:
function RetornaLogin( Email : string ) : string;
var
Contador : byte;
begin
Result := ´´;
Contador := 1;
while copy(Email, Contador, 1) <> ´@´ do begin
Result := Result + copy(Email, Contador, 1);
Contador := Contador + 1;
end;
end;
Ela funciona muito bem mesmo, eu só gostaria de saber se teria outra maneira de fazer a mesma ... ???
valews pela atenção.
Mmoreira
Curtir tópico
+ 0Posts
18/05/2005
Gandalf.nho
Gostei + 0
19/05/2005
Mmoreira
Gostei + 0
19/05/2005
Renatosilva
function RetornaLogin(Email: string ): string;
begin
Result := Copy(Email, 1, Pos(´@´, Email));
end;
Gostei + 0
19/05/2005
Mmoreira
testei sua função e ele contem um pequeno problema ... ela retorna o logon seguido do @ .... A função deve retornar tudo antes do @
Na sua função se eu tento filtrar o seguiente email por exemplo mmoreira@email.com.br me é retornado: mmoreira@
Gostei + 0
19/05/2005
Renatosilva
function RetornaLogin(Email: string ): string;
begin
Result := Copy(Email, 1, Pos(´@´, Email) - 1);
end;
Oops :oops: Corrigido!
Gostei + 0
19/05/2005
Mmoreira
agora funcionou legal ...
obrigado pela atenção!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)