Недавно добавленные исходники
• TDictionary Custom Sort 2 714 • Fast Watermark Sources 2 583 • 3D Designer 4 244 • Sik Screen Capture 2 885 • Patch Maker 3 089 • Айболит (remote control) 2 924 • ListBox Drag & Drop 2 527 • Доска для игры Реверси 74 872 • Графические эффекты 3 353 • Рисование по маске 2 554 • Перетаскивание изображений 2 146 • Canvas Drawing 2 221 • Рисование Луны 2 149 • Поворот изображения 1 727 • Рисование стержней 1 755 • Paint on Shape 1 235 • Генератор кроссвордов 1 820 • Головоломка Paletto 1 460 • Теорема Монжа об окружностях 1 831 • Пазл Numbrix 1 364 • Заборы и коммивояжеры 1 628 • Игра HIP 1 110 • Игра Go (Го) 1 068 • Симулятор лифта 1 240 • Программа укладки плитки 1 019 • Генератор лабиринта 1 334 • Проверка числового ввода 1 099 • HEX View 1 275 • Физический маятник 1 146 • Задача коммивояжера 1 183

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

Преобразование десятичного числа в шестнадцатиричное 2

function dec2hex(value: dword): string[8];
const
  hexdigit = '0123456789ABCDEF';
begin
  while value <> 0 do
  begin
    dec2hex := hexdigit[succ(value and $F)];
    value := value shr 4;
  end;
  if dec2hex = '' then dec2hex := '0';
end;