Foros Club Delphi - Ayuda para traducir código PHP a Delphi

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

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

- - Ayuda para traducir código PHP a Delphi (https://www.clubdelphi.com/foros/showthread.php?t=84440)

FideRosado

19-10-2013 07:11:50

Ayuda para traducir código PHP a Delphi

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

Casimiro Notevi

19-10-2013 11:08:47

Muy bien, luego compartes el código que veamos :)

FideRosado

19-10-2013 15:28:51

elegir entre el nombre del correo o la direccion de correo

esto s para que cambien entre el nombre del correo u el correo solamente

Código Delphi [-]function ClearMailDomain( mail:string; vindex:integer ):string;
var
os:integer;
df,kj:string;
begin
    os := CharCount( mail , '<');

     if os = 0 then begin
      result:=mail;
     end;

     if os = 1 then begin
        kj:= GetToken( mail , '<', vindex );
        df:= CambiaEn( kj , '>' , '' );
        result:= df;
     end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( ClearMailDomain( 'nombre del usuario ',2) );
end;

aca el numero elije a quien te entrega..(1, 2)

La franja horaria es GMT +2. Ahora son las 03:48:24.