forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   MidletPascal (http://forum.boolean.name/forumdisplay.php?f=46)
-   -   Функция перевода в hex (http://forum.boolean.name/showthread.php?t=8863)

Трава 09.08.2009 20:23
Функция перевода в hex
 
Народ, помогите с функцией перевода десятичного числа в шестнадцатеричное! :mad: Охота hex-редатор написать, а сам без понятия как функцию реализовать.

ViNT 09.08.2009 20:27
Ответ: Функция перевода в hex
 
Для этого есть Lib_hexdec.

Трава 09.08.2009 20:33
Ответ: Функция перевода в hex
 
Пасяб :) Ну терь точно можно приступать к написанию редактора.

Трава 10.08.2009 10:39
Ответ: Функция перевода в hex
 
Ха! Обрадовался! :-D Разработчику библеотек тех трёх явно не помешало бы мануалы к ним засовывать... Я канеш из исходника команду понял, но MP пишет "error in argument 1". Чё делать, блин?

Tronix 10.08.2009 16:47
Ответ: Функция перевода в hex
 
Один из первых запросов в гугл:
PHP код:
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; 

Трава 10.08.2009 19:51
Ответ: Функция перевода в hex
 
Терь точно пашет :) Благодарю


Часовой пояс GMT +4, время: 22:47.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot