https://tproger.ru/digest/awesome-bits/
Я вот совсем не сторонник подобных штучек, но мало ли…
Цитата оттуда:
Целые числаУстановка n-ого бита1x | (1<<n)Обнуление n-ого бита1x & ~(1<<n)Переключение n-ого бита1x ^ (1<<n)Округление до следующей степени двойки12345678unsigned
В предыдущем посте про подготовку к тестированию и работе с Linux-серверами в грядущей версии RAD Studio содержались стратегические рекомендации. Среди них была, например, такая:
…Заранее
Получение дескриптора безопасности файла
Способ №1
function ConvertSecurityDescriptorToStringSecurityDescriptor_( SecurityDescriptor: PSECURITY_DESCRIPTOR; RequestedStringSDRevision: DWORD; SecurityInformation: SECURITY_INFORMATION; StringSecurityDescriptor: PPChar; StringSecurityDescriptorLen: PCardinal ): Boolean; stdcall; external ‘ADVAPI32.DLL’ name {$IFDEF USEUNICODE}’ConvertSecurityDescriptorToStringSecurityDescriptorW'{$ELSE}
При ремонте баз данных периодически сталкиваемся с полным отсутствием бэкапов или копий БД. Если в этом случае в базе повреждены метаданные, то восстановить уже практически
Новый год всегда приносит надежду на хорошие изменения и обновления. В согласии с ранее объявленным перспективным планом, мы ожидаем свежего «большого» релиза RAD Studio в
Доброго времени суток!
Не каждый разработчик владеет дизайнерскими навыками, но хорошо что есть онлайн-сервисы, которые помогают нам без особых усилий сделать красивости.
Перечислю несколько must-have сервисов:
скриншот приложения
const
csRusSmallI = AnsiChar(‘и’);
csRusBigI = AnsiChar(‘И’);
csSetRusI = [csRusSmallI, csRusBigI];
begin
Assert(#0 in csSetRusI);
//- проверка проходит, что НЕ правильно
end.
const
csRusSmallI = AnsiChar(‘и’);
csRusBigI
Проверка на NULL
with qSomeQuery do begin if FieldByName(‘someField’).IsNull then //do something end;
Запись NULL значений, согласно инструкции
// setting param to null … qSomeQuery.SQL.Text:= ‘INSERT INTO DATABASE.TABLE
