Вверх ↑
Ответов: 1341
Рейтинг: 31
#1: 2019-07-08 11:16:31 ЛС | профиль | цитата
Леонид,

я имел ввиду число с запятой в hex, его ещё вроде называют Float, но вобщем всё более менее получилось с I64, только теперь есть вопрос как переделать код с 4 байт под 8

Hex2Int

function Hex2Int(st:string):integer;
var
i,ln:word;
begin
st := LowerCase(st);
Result := 0;
ln := Length(st);
if ln > 0 then
for i := 1 to ln do
case st[i] of
'0'..'9': Result := Result shl 4 + ord(st[i]) - 48;
'a'..'f': Result := Result shl 4 + ord(st[i]) - 87;
else break;
end;
end;
карма: 2

0
Редактировалось 3 раз(а), последний 2019-07-08 11:17:16