Code:

function dec2hex(value: dword): string[8];

const

hexdigit = '0123456789ABCDEF';

begin

while value <> 0do

begin

dec2hex := hexdigit[succ(value and$F)];

value := value shr4;

end;

if dec2hex = ''then dec2hex := '0';

end;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить