У меня сейчас на работе основной ЯП - Delphi. Хотя относительно давно на нем программирую, все равно какие-то новые штуки узнавал в последнее время. Буду тут писать.

Первое. Есть в Delphi, как и в других языках, функция Format. Но есть и частные функции для форматирования вывода разных данных. Например для вывода чисел с плавающей запятой - FormatFloat.
Я думал, что эта функция, когда задаешь кол-во знаков после запятой, просто обрезает остальные десятичные знаки. Сегодня узнал, что она всё-таки округляет до заданного кол-ва знаков. И это хорошо,что округляет. )

На днях узнал о синтаксической конструкции в Паскале Делфи, о которой раньше не знал. Смотрел чужой код и натолкнулся на конструкциюСначала подумал, что это адрес, в Си, когда параметр передается по ссылке, т.е. передается адрес переменной, то так пишут. Но в Delphi адрес - @. Т.е, чтобы передать адрес, надо написатьСтал искать, не сразу нашел. Оказывается, это другая, довольно специфическая вещь. Имена типов, переменных не должны совпадать с зарезервированными словами языка. Но оказывается, можно ввести идентификатор, совпадающий с зарезервированным словом. Но надо при его объявлении перед ним поставить амперсанд. Тогда парсер кода будет знать, что этот токен не надо трактовать, как зарезервированное слово.
Пример:При использовании (а не объявлении) переменной, можно вместо амперсанда использовать квалифицированное имя переменной: имя модуля - точка - имя переменной.Раньше не знал, что есть такая штука.

Но ещё, в коде, где я это увидел, имя переменной не совпадает ни с одним зарезервированным словом. Я предполагаю, что это появилось там в результате ряда ошибок и обстоятельств. Предполагаю. что человек скопировал код из Си. Это функция WinApi, видел пример её использования на Си, там как раз первый параметр передается по ссылке, передается вдрес, и в Си стоит амперсанд. Вероятно человек скопировал этот код и амперсанд тоже. Но в Delphi с одной сторроны адрес пишется @, а с другой - в этой импортированной функции первый параметр объявлен как var-параметр, т.е. он и так уже передается по ссылке, адрес писать не нужно. И в третьих, & в Delphi означает, что имя при парсинге не надо понимать, как зарезервированное слово. Т.е. скопированный так код изменил свой смысл, но так получилось, что результат скомпилировался и он даже правильный. Правда можно просто убрать этот амперсанд, он в данном случае не имеет смысла.

Да, согласен. Я просто сначала был озадачен кодом, который увидел, долго (ну относительно) искал, что же такое означает & в паскале делфи. Ну и вот, узнал про такое.

В Delphi есть поддержка тем (оформления) Windows. И эта штука, что впрочем логично, не позволяет менять какие-то визуальные свойства тех или иных элементов управления. Например в элементе управления TPageControl: панель с закладками, цвет закладок в теме по-умолчанию в Windows 10 - белый. На белом не всегда хорошо видны поля ввода и т.д. Но цвет, просто задав в design-time какой-то произвольный, не поменяешь, если включена поддержка тем, нарисовано будет всё равно в стиле темы.

Сегодня добавлял в полосу статуса окна (Status bar, полоска внизу), вывод еще одной информации, кроме которой там была. Там несколько панелей, на части выводится текст, на других рисуется типа индикаторов красный/зеленый. Панели есть двух типов - либо задаешь текст и он выводится на панели, либо она отрисовывается программно (свойство Style - psText или psOwnerDraw). И вот надо было добавить ещё одну панельку, в которой выводится текст красным цветом в некоторых ситуациях. Отлаживаю и обращаю внимание, что текстовые панели - жирным шрифтом. Почему? Начинаю искать - в свойствах этого нет, в коде этого тоже нет, из других потоков, которые через Synchronize вызывают разные процедуры в этом окне, тоже нет такого. Причем сначала после открытия окна - без жирного, без bold'а, а потом появляется он. И только через какое-то время догадался, что это - тема. Отключил в опциях проекта поддержку тем и жирный перестал появляться. Ну, потом включил назад. Ладно, раз такая тема, в смысле тема оформления :), то значит так, пусть уж будет, чтобы не выбиваться из стиля Windows.

Знакомую фамилию увидел. Использовал в коде функцию CompareMem (сравнивает две области памяти), решил глянуть, как она реализована. Ну, как и ряд других функций, взята из проекта Fastcode, вероятно - адаптирована. А среди тех, кто принимал участие в написании, упомянут Александр Шарахов (только он там и упомянут). Александр не раз писал в разделе Delphi на sql.ru.

В индексе TIOBE в феврале на 12 месте:
https://www.tiobe.com/tiobe-index/

У TIOBE какие-то свои методики подсчёта. Там кстати у VB какой-то огромный всплеск, начиная с 2020 года:
https://www.tiobe.com/tiobe-index/visual-basic/

Есть рейтинги на stack overflow:
https://survey.stackoverflow.co/2023/#section-most-popular-technologies-programming-scripting-and-markup-languages

Может все это знают и так, но вдруг кто-то не знает или забыл. Компилятор под Windows использует менеджер памяти, взятый из опенсорсного проекта FastMM. И у него есть такая фишка, он может при закрытии программы показать неосвобожденную память. ОС конечно всю виртуальную память процесса после его закрытия всё равно заберет, но тут можно видеть, какие объекты были созданы и не удалились.
Делается это так: в файле проекта в начале после begin добавляется строчка:Или можно вот так, тогда при запуске под отладчиком будет выводить, а при обычном запуске - нет, т.е. не надо менять код для билдов в продакшен.Вот, про настройку менеджера памяти:
https://docwiki.embarcadero.com/RADStudio/Athens/en/Configuring_the_Memory_Manager

Долгое время для измерения времени по-быстрому (хаха, прошу прощения за получившуюся игру слов) использовал функцию win32 API GetTickCount. Эта функция возвращает время в мсек от начала работы компьютера. Результат имеет тип Cardinal (беззнаковое 4 байтовое целое), так что он зацикливается после 49,7 примерно дней работы Windows. (Есть функция GetTickCount64, которая возвращает Int64).
MS пишет: Во многих ситуациях этой точности вполне достаточно. Использовал примерно так:В последней строчке сначала выполнится GetTickCount, потом вычислится разность, потом выполнится IntToStr и потом AddStrToLog, т.е. во время войдет только то, что мы измеряем, но не время выполнения IntToStr и записи в лог.
Понятно, что тут не учитывается фактор многопоточности, что какое-то время поток, в котором выполняется код, мог спать в то время, когда (если) система выделила кусок (slice) времени другому или другим потокам.

Но в последнее время часто, когда надо померить время, стал использовать точный таймер, для которого есть обертка в Delphi. Обертка в виде записи с методами. У этого таймера период обычно - 0.1 мксек, т.е. частота 10 000 000 гц.Я обычно писал попроще (но не совсем корректно), т.к. , когда тестирую и измеряю время на рабочей машине, Frequency можно запросить и посмотреть отдельно, а убедившись, что это 10 000 000, обычно писал так:TStopWatch - это обертка для функции win32 API QueryPerformanceCounter и сопутствующих функций.

На старости лет оценил полиморфизм в ООП. На нынешней работе это как-то отчетливо заметно. Программа работает с различным железом. И вот, разные модификации железа, даже разные способы подключения - это означает разные варианты обмена данными. Пока что хорошо решалось тем, что в классе-предке устройства (класс для обмена данными с оборудованием, которое выполняет определенную функцию, а конкретные модели и протоколы обмена могут быть разными) объявляются методы, которые потом будет использовать модуль, использующий эту железку. Часть - с реализацией, где делаются какие-то общие для всех вариантов вещи, часть - абстрактные методы. А в потомках реализуется тот или иной конкретный вариант функций обмена. И в модуле, где они используются, мы в зависимости от настроек, создаем экземпляр того или иного класса(-потомка). А используем методы, объявленные в предке. Буквально сегодня сделал в основном вот такое: раньше использовали через TCP/IP->преобразователь портов->RS-485 один модуль цифровых вводов-выводов, по протоколу DCOM, а сейчас в планах использовать другой модуль того же производителя, с управлением прямо по TCP/IP по протоколу Modbus. И вот была задача добавить работу с ним в программу, чтобы можно было работать или с одним, или с другим. Раньше были просто несколько переменных в модуле, теперь забацал классы.

Ещё - разделение уровней, слоев обмена. За счет этого (писал код, который мне надо было потом модифицировать, другой человек) как-то, при переходе от обмена по одному каналу к нескольким вариантам, пришлось поменять буквально одну функцию, которая отправляла уже подготовленный пакет, в разных реализациях разный 1)по UDP, 2)по USB, 3)по TCP потом преобразователь портов, потом RS-485. Ну не только одну, ещё конструкторы-деструкторы, ещё наверное что-то.

s62 [игнорируется] 
Извиняюсь, ошибся. "по протоколу DCOM" - DCON.

Два урока из недавней практики. Известные вещи, но вот.

1) Делать обработку ошибок. Когда-то была большая статья или даже пару статей на эту тему в блоге у gunsmoker. Я, если в среднем, то наверное примерно так: в каких-то ключевых процедурах обработку ошибок типа try ...except пишу, но не во всех подряд процедурах и функциях. Недавно была ошибка, причину которой относительно долго не мог найти. Ошибка была у заказчика, у нас в офисе при работе программ в том же (вроде бы) окружении, как у заказчика, не воспроизводилась. И не сразу локализовал: исключение возникало в процедуре, из которой вызывались другие процедуры. Когда добавил обработку ошибок в них, то выяснилось, что ошибка, исключение возникает в одной из них.

2) Делать проверку входящих параметров. По сети от нашей же программы приходили пакеты заданного формата и вроде как с предопределенным содержанием, в частности кодом (номером) команды из определенного диапазона. Я с программным кодом этой второй программы был знаком, сам там один модуль писал, в другом или паре других делал кое-что. Вроде как должны были послаться только определенные в протоколе команды. Но оказалось, что приходит от неё по сети пакет с кодом (номером) команды, который не предусмотрен протоколом обмена. Из-за некоторых моментов в программном коде этой программы и в её настройках у клиента. Это не проверялось и приводило к некритичным последствия, но, тем не менее, не предусматривавшимся. Добавил проверку корректности кода (=номера) команды - сразу же выяснилось, откуда ошибка, о которой речь в первом пункте.

EurekaLog и madExcept мощные средства для отладки. И стоят не очень дорого порядка $150, для компании это немного же.
Но есть некоторые моменты. Во-первых, если я правильно понял, EurekaLog, может и второе средство тоже, перехватывают исключение на "верхнем" уровне, примерное как Application.HandleException (который вызывает Application.OnException). Но в каких-то ситуациях хотелось бы перехватить и обработать исключение на более "низком" уровне, в процедуре, где оно возникло, чтобы меньше нарушался ход работы приложения. Ну, это может философский вопрос, может тут можно дискутировать. Но вот другой момент имеет отношение к программе, которой я сейчас больше других занимаюсь.

Программа существенно многопоточная. Она работает с оборудованием, причем может с несколькими установками (на ряде фабрик так и есть). Работа с каждой установкой выполняется в отдельном потоке. Там идет постоянный сетевой обмен, причем не с одной железкой, что-то выводится в БД, есть реакции на возникновение внешних сигналов и наоборот подача сигналов на переключение устройств и т.д. Плюс ещё ряд потоков, какие-то временно создаваемые и потом удаляющиеся, какие-то относительно долго работающие, разные ситуации.

В документации EurekaLog написано, что при работе с доп. потоками, если не обрабатывать исключения, а просто подключить её - это плохой вариант. Хороший вариант - исключения обрабатываются, как положено, а EuricaLog тогда выдаст дополнительную отладочную информацию. Т.е. даже если использовать эти библиотеки, мне все равно нужно как минимум обрабатывать исключения на уровне процедуры TThread.Execute. Да и безотносительно EurecaLog, исключения в потоке нужно обрабатывать в нем. Но там прилично кода, разбитого на ряд процедур и функций и логично на мой взгляд обрабатывать исключения и в них, в частности тогда мы сразу можем более детально локализовать ошибку. В обработчике исключения в лог пишется и имя процедуры, где оно возникло и информация об исключении. И вот до сих пор этого обычно хватало для выявления причин ошибок. Правда во многих случаях была возможность воспроизвести ситуацию в офисе, при работе программы под отладчиком.
Мне кажется, что если писать надежный и переносимый код, то обработка возможных ошибок, в том числе исключений - нужная/полезная вещь. Я где-то использую генерацию исключений в случае каких-то нештатных ситуаций. Естественно, в предположении, что или в этой же функции оно будет обработано, или во внешней функции, вызывающей эту. Один из возможных вариантов. Предугадать, где может возникнуть исключение бывает и сложно заранее. Понятно, что где-то обрабатывать исключения нет смысла, например функции win32 API не генерируют исключения, а возвращают коды ошибок. Но зато твой собственный код в функции, где используется API может привести к какому-нибудь исключению.

Мне кажется эти библиотеки полезны, но они - не панацея, всё равно стоит обрабатывать ошибки в коде программы.
Как-то так.

Ифрит [игнорируется] 

А вообще, спасибо, посмотрю джедайские классы. До вчера толком не представлял, что такое EurekaLog. Особо вроде не задумывался, не интересовался, но предполагал, что это что-то для облегчения отладки при работе в среде разработки.

Как поменять местами закладки (TTabSheet) в TPageControl в design time?
Надо открыть Structure view для страницы, там найти PageControl, выделить нужную закладку и наверху есть кнопки - переставить выше или ниже.

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

Поправка: для окна

Не совсем про Делфи. Надо было из таблицы в программе экспортировать данные в Эксель. Таблица в программе - просто StringGrid, т.е. таблица в окне программы (в программистских обсуждениях называют ещё по переводу с английского - сетка, наверное чтобы не путать с таблицей БД), где в ячейках текст.
Раньше не надо видимо было, но недавно коллега, который работает с программой, начал делать там некоторые манипуляции с данными и ему понадобилось переносить их в Эксель. Из этой таблицы кем-то давно было написано сохранение в текстовый файл, визуально похожее на таблицу, но такое, что эксель открыть это не мог. Я сначала подумал про экспорт через OLE, но не захотел делать этот вариант, жестко завязанный на наличие установленного экселя. Решил сделать экспорт в XML - а XML может импортировать и Эксель, и например LibreOffice Calc, что может пригодиться в связи с импортозамещением. Сделал.
Но тут коллега пишет, что вот бы через копипаст, как из БД. Под "из БД", как я понял, он понимает - из MS SSMS. Я ему ответил: И смутно припоминал, что про экспорт через буфер обмена было в одной давней статье на Королевстве Дельфи. Зашёл, и точно, есть.
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=313

Короче говоря, для экспорта в эксель данных из какой-нибудь таблички можно сделать так. Эксель принимает данные в буфере обмена в формате CSV. Т.е. берем данные, например область, выделенную в таблице. Формируем строку в формате CSV, ячейки разделяем TAB-ом (#9), строки таблицы - LF (#10). отправляем строку в буфер обмена. В Экселе делаем вставку.

Администратор или Горбатый ёж дай пожалуйста модерку на тему, чтобы удобней редактировать и т.п., если что.

В свежей Delphi 12.2 появился класс TParallelArray.

Из записи в блоге. https://blogs.embarcadero.com/faster-delphi-rtl-with-parallel-arrays-and-ordered-dictionaries/ Я и не знал, что при помощи класса TArray из System.Generics.Collections можно так сортировать массивы. Там еще есть вот такая сортировка:

Видел, как человек пользовался, но как-то сам не обращал внимания. Удобная вещь вверху окна редактора кода - два выпадающих окна, в левом список классов, в правом - список методов выбранного класса. И, как я понял, в нем же, если класс не выбрано - список процедур/функций (не методов классов) этого модуля.
А я всё пользовался поиском и переходом к объявлению (Ctrl+Click). Есть ещё конечно боковое окно структуры модуля, но я им редко до сих пор пользовался, обычно, когда какой-то чужой модуль открывал и искал какие-то классы, методы и т.п., так, оно у меня обычно свернуто.
В одном из текущих проектов есть большие модули с большими классами, где много методов, там эта штука удобна наверное. Всё, сейчас после обеда попробую использовать это.

p.s. Это - часть того, что называется Navigation toolbar, появилось, оказывается в Delphi XE8, я пользовался из этой панели (тулбара) переходом к разным секциям модуля.
https://docwiki.embarcadero.com/RADStudio/Athens//en/Code_Editor#Navigation_Toolbar