ВНИМАНИЕ! На форуме завершено голосование в конкурсе - астрофотография месяца ИЮЛЬ-АВГУСТ!
0 Пользователей и 1 Гость просматривают эту тему.
А вот, как здесь на форуме обмениваться листингами программ? .. если переименовать .pas в .txt, то слетит ли форматирование.
OK, ссылка на Яндекс-Диск
Надо как-то через вайн запускать
В Дельфи-7 нормально откомпилирована.
Создайте проект в Лазарусе, в его папку вывалите все файлы, и компилируйте.
var DecSepOS:char;
DecSepOS:=DecimalSeparator; // запоминаем разделитель ОСDecimalSeparator:=','; // устанавливаем свой
DecimalSeparator:=DecSepOS; // восстанавливаем, как было в ОС
А вот, как здесь на форуме обмениваться листингами программ? Если вставлять в код, то потом прога не хочет работать, с расширением .pas форум не проглотит, остаётся зиповать и вкладывать архив, но запарно паковать-распаковывать.
Github индустриальный стандарт
Можно так.Создаем глобальную переменную в модуле главной формы например....В начале, например в событии FormCreate :...В конце, например в FormClose:
Цитата: Toth от 07 Янв 2023 [20:54:57]Можно так.Создаем глобальную переменную в модуле главной формы например....В начале, например в событии FormCreate :...В конце, например в FormClose:Не надо так делать. Добавляем в главную форму секции Initialization и Finalization. В Initialization читаем DecimalSeparator и меняем его. В Finalization восстанавливаем.