Esta es una de las partes del programa anterior solo que me la pidieron mis amigos y aqui se las dejo.

Function Hex2Dec(a:String): Integer;
Var
Temp,Tamano,N,j,d,Elevado,Code,Entero,Selec,Decimal:Integer;
Tmp:Char;
Hex: Array[1..30] Of Integer;
Begin
Decimal:=0;
Tamano:= Length(a);
For N:= 1 To Tamano Do
Begin
Tmp:= Upcase(a[N]);
Case Tmp Of
‘A’: Hex[N]:= 10;
‘B’: Hex[N]:= 11;
‘C’: Hex[N]:= 12;
‘D’: Hex[N]:= 13;
‘E’: Hex[N]:= 14;
‘F’: Hex[N]:= 15;
Else
Val(Tmp,Entero,Code);
Hex[N]:= Entero;
End;
End;
Selec:=Tamano-1;
For N:= 1 to Tamano Do
Begin
Elevado:=1;
For J:=1 to Selec Do
Elevado:= Elevado * 16;
Temp:=Elevado;

decimal:=decimal + (Temp * Hex[N]);
Selec:=Selec - 1;
End;
Hex2Dec:=Decimal;
End;

Compártelo!

Escucha
este post

Fatal error: Call to undefined function: wp23_related_posts() in /home/vbarvh/public_html/revxfire/wp-content/themes/glossyblue-1-4/single.php on line 16