Dec ---> Hex
Falk0ner, вс, 06/07/2008 - 15:34.
function dec2hex(value: dword): string[8];
const
hexdigit = '0123456789ABCDEF';
begin
while value <> 0 do
begin
dec2hex := hexdigit[succ(value and $F)];
value := value shr 4;
end;
if dec2hex = '' then dec2hex := '0';
end;
const
hexdigit = '0123456789ABCDEF';
begin
while value <> 0 do
begin
dec2hex := hexdigit[succ(value and $F)];
value := value shr 4;
end;
if dec2hex = '' then dec2hex := '0';
end;
Взято с http://delphiworld.narod.ru
Отправить комментарий