[FideRosado]

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;
    }
}