HexToDec

← →
Fixxxer (2004-04-04 18:12) [0]

Помогите перевести число из шестнадцатиричного в десятичное представление. Есть ли какая-нибудь готовая функция? Или надо самому что-то писать?

← →
Anatoly Podgoretsky © (2004-04-04 18:28) [1]

Самому

← →
Плохиш (2004-04-04 18:38) [2]

IntToStr(StrToInt("$ABC"))

← →
Fixxxer (2004-04-04 22:40) [3]

Круто!!!

function Hex2Dec(const S: string): int64;
var
HexStr: string;
begin
if Pos("$", S) = 0 then HexStr := "$" + S
else HexStr := S;
Result := StrToInt64Def(HexStr, 0);
end;

function Dec2Hex(N: LongInt; A: Byte): string;
begin
Result := IntToHex(N, A);
end;

function bytetoint(data:string):int64;
var s:string;
i,ii,z:integer;ch:char;
begin
s:="";
for i:=length(data)downto 1 do begin
ch:=data[i];
z:=0;
for ii:=1 to 255 do if ch=chr(ii) then z:=ii;
s:=s+dec2hex(z,2);
end;
result:=hex2dec(s);
end;

Вот тебе...

HexToDec Найти похожие ветки