Foros Club Delphi - Recortar String

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Recortar String (https://www.clubdelphi.com/foros/showthread.php?t=55811)

MaMu	28-04-2008 01:43:34

Recortar String

Tengo un string asi:

Código Delphi [-]MiString:='usuario@dominio.com (Pepe Perez)';

Yo lo que quiciera hacer, es quitar lo que está entre paréntesis y quedarme con la dirección de email. Como podría hacerlo?

Código Delphi [-] 
function CutEmail(emailtag:string)string;
begin
 
end;

Saludos

eduarcol

28-04-2008 02:08:03

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;

MaMu	28-04-2008 02:25:46

SOLUCIONADO

Muchas gracias eduarcol. La regla se cumple siempre.

La franja horaria es GMT +2. Ahora son las 08:28:58.