Настоящим программистам!

Есть ли в Delphi функция перевода из десятичного числа в шестнадцатеричную? Если есть то какая? А если нет, то как сделать этот перевод?

Набрал в поисковике [преобразование числа в шестнадцатиричное в Delphi]
[url=http://www.rambler.ru/srch?set=www&words=%EF%F0%E5%EE%E1%F0%E0%E7%EE%E2%E0%ED%E8%E5 %F7%E8%F1%EB%E0 %E2 %F8%E5%F1%F2%ED%E0%E4%F6%E0%F2%E8%F0%E8%F7%ED%EE%E5 %E2 Delphi&btnG=%CD%E0%E9%F2%E8%21]http://www.rambler.ru/[/url]

Вот результат первой ссылки:

HexString := Format('%0x',[DecValue]);
или
HexString := IntToHex( [DecValue] , [MinDigits] );

_Sh_ Дели на 16...

Sana, а как насчет A,B,C,D,E,F???

_Sh_

А причем тут A B C D E F ? И вообще, тебе для каких целей нужно?

Если надо разобрать число на 16-ричные "цифры" которые потом можно использовать в вычислениях (с какой целю только ХЗ)...
то я тебе сказал, уже дели на 16... Вернее собирай остатки от деления на 16 (операция mod если мне память не изменяет)...

А если тебе строку надо получить, то MaxiDron написал уже, я сам не пользовался...

Ты что не разу не видел буквы в 16-х чмслах???
Так как цвет формы указан семью 16-ми цифрами для этого мне это и надо!!!

_Sh_ Я так и не понял, у тебя что ничего не получилось? В любом языке программирования есть функция перевода числа из десятичного в шестнадцатиричное. И это азы. Кстати написать эту функцию самому - задача для начинающих. Просто нет времени заниматься такими глупостями. Если ты не можешь этого сделать, что ты там вообще программируешь?

ЗЫЖ Надеюсь это не отобьет у тебя возможность спрашивать. Неописуемый кайф испытываешь когда доходишь до чего нибудь сам. И чем дольше доходил, тем кайфовее.

_ля, если вы тут до _уя модные программисты, то почему никто кроме 2-х челов не ответил на мой простетский вопрос, а??? Хотя страницу просмотрело больше сотни.
Просто нет времени... А вопрос как ты сказал для начинающих это значит, что настоящий программист всегда сможет на него ответить, а если никто (кроме 2-х) в нашем городе не может ответить на этот вопрос это значит что? А???
Это вовсе не глупость!!!
А кто-то писал:

Или чтобы мне ответили на эту глупость нужно обратится на специализированные форумы???
Настоящая глупость это говорить о жизни города в рубрике программирование!!!

Прошу прощения если кого обидел.
Но если какой-либо новичок что-то спрошивает не нужно говорить, что это глупость.

Ведь до какой-либо проблемы можно доходить всю жизнь так и не поняв этого, а твой друг это знал и не говорил тебе этого потому, что ты у него не спрашивал!!! Всем кто ответил на мою глупость большое спасибо!

_Sh_ Как бы тебе сказать, A B C D E F это принятая система ОТОБРАЖЕНИЯ шестнадцатиричных чисел, если ты будешь использовать другие буквы или символы, от этого число не перестанет быть шестнадцатиричным никого это волновать не будет (разве что не поймут)...

Привожу простой пример Берем число 165

Получаем остаток от деления на 16 равно 5 (первый знак)

Делим это число нацело на 16

Получаем 10

Равно нулю? Нет -> продолжаем

Получаем остаток деления 10 на 16 равно 10 (Второй знак)

Делим 10 нацело на 16 - получаем 0

Получили 0 - > Выходим

Записываем получившееся число A5h - шестнадцатиричное знаечениe 165... можешь проверить, а вот как писать вместо 10 11 12 13 14 15 буквы а b c d e f это уже отдельная история...

ЗЫЖ, это общий алгоритм для приведения в систему счисления с любым основанем (хоть двоичную, хоть восьмеричную хоть 19-ричную)...

И вообще если то что тебе надо делается готовой функцией, то нахера я тут основы математики преподаю???

Поверь мне не зря!

Только я никогда не видел в 16-х числах букву h, расскажи где ее взял.

Это принятое обозначение того что число 16 ричное, например 10 и 10h это разные числа...

Функция IntToHex( Value: Integer; Digits: Integer ): string;
--------------------------------------------------------------------------------
Модуль: SysUtils

Описание
Функция преобразовывает десятичное целое число Value в шестнадцатеричный вид и возвращает его строковое представление. Параметр Digits определяет, сколько символов (шестнадцатеричных знаков) должна содержать результирующая строка.

Пример
var
S1, S2: string;
X: integer;
begin
X:= 4321;
S1:= IntTostr(X);
S2:= IntToHex(X, 8); { S := '000010E1' }
MessageDlg( 'Число в десятичном формате: ' S1 #13 'Число в шестнадцатеричном формате: ' S2, mtInformation, [mbOk], 0);
end;

Большое всем спасибо уже всё готово!!!

_Sh_ Ну и молодец, только цвета для шрифта попроще выбирай, у меня нихера не видно...

Ок