[[eduarcol]]

Si se cumple siempre la regla del ejemplo:

Código Delphi [-]
function CutEmail(emailtag:string)string;
begin
    Result := Trim(Copy(emailtag, 1, Pos('(', emailtag) - 1));
end;