Ха! Обрадовался! Разработчику библеотек тех трёх явно не помешало бы мануалы к ним засовывать... Я канеш из исходника команду понял, но MP пишет "error in argument 1". Чё делать, блин?
Сообщений: 318
Написано 103 полезных сообщений (для 331 пользователей)
Ответ: Функция перевода в hex
Один из первых запросов в гугл:
function IntToHex(IntValue, Digits: integer): string; var i, j: integer; s: string; begin s := ''; if IntValue > 0 then begin i := IntValue; while i>0 do begin j := i mod 16; if (j<10) then s := Chr(Ord('0') + j) + s; else s := Chr(Ord('A') + (j - 10)) + s; i := i div 16; end; end; if Digits < 1 then Digits := 1; i := Digits - Length(s); while i>0 do begin s := '0' + s; i := i - 1; end; IntToHex := s; end;