delphi IntToHexAnsi

function IntToHexAnsi(N : Integer; Digits: Byte) : AnsiString;

var

Buf : array [0..7] of Byte;

V : Cardinal;

I : Integer;

begin

V := Cardinal(N);

I := Length(Buf);

if Digits > I then Digits := I;

repeat

Dec(I);

Buf[I] := V mod 16;

if Buf[I] < 10 then

Inc(Buf[I], $30)

else

Inc(Buf[I], $37);

V := V div 16;

until V = 0;

while Digits > Length(Buf) - I do begin

Dec(I);

Buf[I] := $30;

end;

SetLength(Result, Length(Buf) - I);

Move(Buf[I], Pointer(Result)^, Length(Buf) - I);

end;

推荐分享