Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

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]

Круто!!!

---

← →
GanibalLector ©   (2004-04-05 02:52) [4]

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;

Вот тебе...

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.036 c