me he encontrado con algo que me resulta util en php y kisiera cambiarlo a delphi..
Código PHP:
function clearuserdom($mail){
$os = substr_count($mail , '<');
switch ($os) {
case 0:
return $mail;
break;
case 1:
$charc = array( "<" , ">");
$chard = array( "","");
$ct += substr_count( $mail , "<" );
$ct += substr_count( $mail , ">" );
$s1 = explode( "<" , $mail );
$s2 = $s1[1];
if( $s1 > 0 ){
for ($sd4 = 0; $sd4 < $ct; $sd4++){
$mail = str_replace( $charc ,$chard, $s2 );
}
}
return $mail;
break;
}
}