Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 09.08.2009, 20:23   #1
Трава
Нуждающийся
 
Аватар для Трава
 
Регистрация: 30.07.2009
Сообщений: 61
Написано одно полезное сообщение
Вопрос Функция перевода в hex

Народ, помогите с функцией перевода десятичного числа в шестнадцатеричное! Охота hex-редатор написать, а сам без понятия как функцию реализовать.
(Offline)
 
Ответить с цитированием
Старый 09.08.2009, 20:27   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Функция перевода в hex

Для этого есть Lib_hexdec.
(Offline)
 
Ответить с цитированием
Старый 09.08.2009, 20:33   #3
Трава
Нуждающийся
 
Аватар для Трава
 
Регистрация: 30.07.2009
Сообщений: 61
Написано одно полезное сообщение
Ответ: Функция перевода в hex

Пасяб Ну терь точно можно приступать к написанию редактора.
(Offline)
 
Ответить с цитированием
Старый 10.08.2009, 10:39   #4
Трава
Нуждающийся
 
Аватар для Трава
 
Регистрация: 30.07.2009
Сообщений: 61
Написано одно полезное сообщение
Ответ: Функция перевода в hex

Ха! Обрадовался! Разработчику библеотек тех трёх явно не помешало бы мануалы к ним засовывать... Я канеш из исходника команду понял, но MP пишет "error in argument 1". Чё делать, блин?
(Offline)
 
Ответить с цитированием
Старый 10.08.2009, 16:47   #5
Tronix
Знающий
 
Регистрация: 26.07.2009
Адрес: Россия, Москва
Сообщений: 318
Написано 103 полезных сообщений
(для 331 пользователей)
Ответ: Функция перевода в hex

Один из первых запросов в гугл:
function IntToHex(IntValueDigitsinteger): string;  
var  
  
ijinteger;  
  
sstring;  
begin  
  s 
:= '';  
  if 
IntValue 0 then  
  begin  
    i 
:= IntValue;  
    while 
i>do  
    
begin  
      j 
:= i mod 16;  
      if (
j<10then  
        s 
:= Chr(Ord('0') + j) + s;  
      else  
        
:= Chr(Ord('A') + (10)) + s;  
      
:= i div 16;  
    
end;  
  
end;  
  if 
Digits 1 then Digits := 1;  
  
:= Digits Length(s);  
  while 
i>do  
  
begin  
    s 
:= '0' s;  
    
:= 1;  
  
end;  
  
IntToHex := s;  
end
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Трава (10.08.2009)
Старый 10.08.2009, 19:51   #6
Трава
Нуждающийся
 
Аватар для Трава
 
Регистрация: 30.07.2009
Сообщений: 61
Написано одно полезное сообщение
Ответ: Функция перевода в hex

Терь точно пашет Благодарю
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
функция... DeMoNN Программирование 2 12.03.2009 16:31
функция md5 Seregakz Основной форум 4 11.07.2008 14:48
Функция ввода GomZik Blitz3D 3 03.05.2008 19:44
Функция по координатам... JeSss 3D-программирование 50 29.01.2008 21:04


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com