مكتبة الاْكواد

[Agmcz]

الدالة IntToHex بإستعمال دوال API

PHP كود :

function IntToHex(Value: Cardinal; Digits: Cardinal): string;
var
  F: PChar;
begin
  case Digits of
    0: Exit;
    1..9: GetMem(F, 1);
  else
    Exit;
  end;
  wvsprintf(@F[0], '%d', @Digits);
  SetLength(Result, Digits);
  wvsprintf(@Result[1], PChar('%.' + F + 'X'), @Value);
  FreeMem(F);
end;