Это интересно
Сегодня 22.06.2021 произошёл сбой в обновлениях android xiaomi, постоянно циклично появляется сообщение с просьбой отправить отчет, что мешает использовать смартфон! Ориентировочно сбои в сервисах Google начали в 7.30 по МСК…
В некоторых случаях для получения идентификатора иконки курсора достаточно вызвать функцию WinApi GetCursor. Но в случае когда курсор находится не над окном нашей программы, сначала нужно подключиться к процессу-родителю окна,…
function sqr2(n: Byte): Int64; var b, c: Int64; begin if (n <= 62) then begin…
В Delphi в VCL для основных цветов используются константы, построенные по принципу cl + наименование цвета по…
Когда нужно работать с цветами, то часто требуется знать составляющие Красного цвета (Red), Зеленого (Green) и Синего (Blue). Эти величины, конечно, можно вычислить математически. Но в WinApi уже реализованы такие…
Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе: function IsBit(N: Longint; nBit: Byte): Boolean; {N — число nBit — номер бита} begin result := ((1…
function TranslitRus2Lat(const Str: String): String; const RArrayL = ‘абвгдеёжзийклмнопрстуфхцчшщьыъэюя’; RArrayU = ‘АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ’; colChar = 33; arr: array[1..2, 1..ColChar] of String = ((‘a’,’b’,’v’,’g’,’d’,’e’,’yo’,’zh’,’z’,’i’,’y’, ‘k’,’l’,’m’,’n’,’o’,’p’,’r’,’s’,’t’,’u’,’f’, ‘kh’,’ts’,’ch’,’sh’,’shch’,»»,’y’,»»,’e’,’yu’,’ya’), (‘A’,’B’,’V’,’G’,’D’,’E’,’Yo’,’Zh’,’Z’,’I’,’Y’, ‘K’,’L’,’M’,’N’,’O’,’P’,’R’,’S’,’T’,’U’,’F’, ‘Kh’,’Ts’,’Ch’,’Sh’,’Shch’,»»,’Y’,»»,’E’,’Yu’,’Ya’)); var i: Integer;…
Function NOK(a, b: Longint): Longint; var n, m: Longint; begin result := 0; n := a; m := b; while (a <> b) do if (a < b) then a…
Данная функция возвращает представление десятичного Decimal в виде другой системы счисления с основанием Base (в…
Так что же такое за зверь, этот адаптивный сайт, кому и зачем он нужен? Проще…
Для преобразования изображений из формата JPEG в формат BitMap можно воспользоваться модулем JPEG. Ниже приведена функция на языке программирования Delphi, которая делает такое преобразование. При успешном преобразовании функция возвращает значение…
function SumDig(n: String): Longint; var i, z, l: Byte; begin result := 0; z := ord(‘0’); l := length(n); for i := 1 to l do result := result +…
Любой человек, который пришел в интернет бизнес, задумывается о заработке на блоге, поскольку это один из наиболее доходных и популярных видов заработка в интернете. Топовые блоггеры зарабатывают на своих статьях…
PHP программисты иногда сталкиваются с проблемами при попытке динамически генерировать JavaScript код. Проблема заключается в использовании некоторых символах одновременно в JavaScript, а также в PHP. Это условие может несколько усложнить…
Некоторое время назад на нашем портале публиковалась статья «Удобный способ вёрстки универсальных иконок». Но у…