wtorek, 27 października 2009

Hex to Dec

function string HexToDec(sHex)
number i,nResult,nLiczba;
string sChar,sResult;
begin           
 nResult=0;
 for i=0 to (StrLength(sHex)-1)
  nLiczba=0;                 
  StrSub(sChar,sHex,i,1);
     StrToNum(nLiczba,sChar);
     nLiczba=nLiczba*potega(16,(StrLength(sHex)-1-i));
  nResult=nResult+nLiczba;
 endfor;            
 NumToStr(sResult,nResult);             
 return sResult; 
end;

Brak komentarzy:

Prześlij komentarz