Добрый день!



Мучаюсь с переводом большого проекта с Delphi 2007 на Delphi XE8.

Проект сейчас уже нормально компилируется на XE8 - но только в том случае если не открывать его модули в редакторе Delphi.

Если же открыть какой-либо модуль в Delphi - он тут же в секцию USES добавляет свои модули - которых по его мнению для данной формы не хватает. Почему добавляет - я так понимаю, потому что у меня в секции USES перебор с разными IFDEF, IFNDEF и т. д. и Delphi путается, добавляет модули, которые не нужны, а потом проект не компилируется - ругается, что повторное использование модуля в секции USES.

Возникает вопрос - как запретить Delphi что-то автоматически вставлять в секцию USES и вообще автоматически редактировать текст в PAS-файлах - тем более при обычном Save? Пусть даже при этом не будет работать редактор форм.

Они есть в секции USES - но среда это не понимает. Пример (у меня сложнее - но я для краткости минимизировала данный глюк Delphi XE8, в D2007 такого небыло):

{$DEFINE cond}

unit Unit1;

interface

uses System.Classes, Vcl.Controls, Vcl.StdCtrls; //среда сама добавляет хлам в USES

uses
{$IF Defined(cond)}
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls
{$ENDIF};


type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('100');
end;

end.

Кажется, удалось победить среду после почти года мучений.
Среда добавляет мучор в секцию USES если в ней используется что-то подобное


USES {IF Defined}...{ELSE}...{IFEND}

или

USES {$I some_unit.pas}


Решение вопроса.


Вместо слова USES пишем

{$I USES.pas}

в USES.pas прописываем одно слово из 4-х букв USES

потом после этого можно писать модули с кучей IFDEF и как угодно вообще, в том числе {$I some_units}

в этом случае среда разработки Delphi теряется и ничего не добавляет в секцию USES

Правда, визуальный редактор форм более недоступен для модулей, где так прописали
Но если что то надо подредактировать визуально в конкретном модуле - меняем обратно

{$I USES.pas}
на
USES

подредактируем, подчистим мусор за средой, заменим обратно

USES
на
{$I USES.pas}



Чтобы сократить данные действия - можно вместо

{$I USES.pas}

прописывать

{$IFNDEF hack}
{$I USES.pas}
{$ELSE}
uses
{$ENDIF}

тогда менять надо будет всего лишь одну букву
по умолчанию ifndef а для возможности использования визуального редактора в конкретной форме меняем на ifdef

потом когда то, что нужно подредактируем - подчистим мусор за средой и вернем обратно IFNDEF

то есть получается 2 режима - визуальная среда разработки мусорит и работает, либо не работает, но и не мусорит
недостаток в том, что не получится всё равно заставить визуальный редактор работать, но при этом не мусорить как в delphi 7 ...

Слишком разный список модулей у меня (а также последовательностей их вызова) для D2007 и для XE8 поэтому сложно от этих IFDEF и {$I } в секции USES избавиться. Буду пробовать что то с alias-ами но тут тоже все не совсем очевидно. А пока пусть будет это решение с квадратными колесами и чтобы проект компилировался в обоих средах (причем в D2007 будет все как прежде, ничего не изменится, а в XE8 будут требоваться ухищрения). Если бы удалось запретить среде XE-8 разработки что-то добавлять в USES, понять как можно пакетно добавлять несколько модулей в USES - цены бы ей небыло можно было бы гораздо быстрее на нее перейти совсем ...

Проблема в том, что {$I } тоже плохо обрабатывает в секции USES, а мне нужно в каждую форму подключить одинаковый набор модулей в строго определенном порядке.

Нет, мой велосипед с квадратными колёcами (размещенный здесь в 2 часа ночи) что-то слишком плохо едет.

Еще один вариант решения. Представляю на суд сообщества.
Мне нужно чтобы в каждой форме в USES были прописаны определенные модули (собственно, для этого и подключается)
{$I USES.inc} в секцими USES

Думаю сделать так:

USES
{AUTO1} //обычный комментарий с четко обозначенным содержимым для поиска
//здесь всякая шушара, которую Delphi сам добавляет, список может пополняться при развитии проекта
USES Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls
{AUTO2}

//тут добавляем свои модули - используя как {$I }, так и {$IFDEF}, {$IF Defined} и т. д.
;



Далее как обычно работаем с проектом, Delphi видит "свою" секцию USES (между AUTO1 и AUTO2) для разной шушары, видит свои модули и больше ничего автоматически не добавляет.

Если потребуется использовать новый модуль - просто пишем скрипт на AutoIt, который во всех формах проекта заменяет текст между

{AUTO1}
{AUTO2}
на нужный



Тоже своего рода велосипед - но колёса уже почти круглые, неудобств минимум кроме необходимости периодически запускать AutoIt скрипт, который нужно написать только 1 раз

У Вас тут нет ни одного инклуда. А неплохо бы вынести всё что у вас в отдельный файл

VCL.pas



И писать в каждом модуле проекта, где такой набор модулей в таком порядке нужен

USES {$I VCL.pas}, ...;

Вот только XE-8 это не прожуёт. А в Delphi 2007 нормально будет работать в том числе в Form Designer.

Среда Delphi 2007 может быть тоже не понимала - но хотя бы не мусорила в этом случае. А среда Delphi XE-8 не понимает - но при этом с радостью вставляет свою шушару и делает проект некомпилируемым.

Огромное спасибо. Ваше решение с небольшими модификациями заработало (ниже указано - как оно у меня заработало). Удалось обмануть среду Delphi - чтобы она добавляла свой мусор в определенное место и чтобы он не влиял на компиляцию. Визуальный редактор форм при этом тоже работает и не ругается. Велосипед, конечно в какой-то мере - но колеса почти идеально круглые - по крайней мере не хуже, чем были в Delphi 2007.

Да - так именно и было. А если USES подключать из внешнего файла - не работал редактор форм. GunSmoker подсказал - спасибо ему - дело видимо не только в слове USES - а еще в слове Windows - видимо среда разработки ищет это слово при вставке модулей - а теперь находит, куда надо вставлять.

Так как среда всё равно тупая и не понимает, куда надо модули вставлять - логичным оказывается решение воспользоваться её тупостью и сделать чтобы она вставляла модули в то место, где они не мешают компиляции.

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

В том и дело, что раньше добавлялись ПЕРЕД моей секцией USES. А теперь добавляются нормально.

Прочитай её предыдущие топики. Она половину VCL отхакала, поэтому если её
костыли не окажутся последними - работать не будут.


Похоже, костыли уже одни из последних. Приложение на 400 тысяч строк кода, уже год пытаюсь перенести с Delphi 2007 на XE-8. Уже за год на XE-8 всё нормально компилируется и отлажено, все баги устранены почти. Остается один шаг - вообще уйти с Delphi 2007 и полностью перейти на XE8. При этом, разумеется, кучи хлама в проекте на XE-8 совсем не хочется притом что в Delphi 2007 всё в порядке было.

Например, поведение приложения при нажатии кнопки "Свернуть" (обсуждали уже здесь недавно). Притом, что все формы у меня модальные. Нужно чтобы при нажатии "Свернуть" в любом окне программы - сворачивалась программа целиком, а потом точно также аккуратно разворачивалась.

Из прочего - цветные кнопки (наследники TButton), цветные меню, свои модули - например, по работе с файлами, с MD5, работа с Excel и прочее.

Разумеется, хочется, чтобы все было в одном стиле во всем приложении - и чтобы не подключать все модули к каждой форме приложения (и не редактировать потом все формы - если добавится новый модуль) - и хочется написать что-то подобное

USES {$I All.inc}, ...;

И так уже более 400 тысяч строк кода - еще более 200 копий одинаковых модулей там не хватало чтобы окончательно запутаться ...

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

Вы так и не познакомились с системами контроля версий и их ветками. Ну да, Вам
же некогда, кодировать надо...


Вести 2 версии параллельно на D2007 и на D XE8? Нет, спасибо. И без этого уже задолбаюсь. Как получится привести код в нормальное состояние на XE8 - просто уйду с 2007 окончательно и всё. Пока все еще веду на 2007 - но для пользователей код компилирую на XE8 (код, написанный для 2007 и преобразовываемый AutoIt-ом для XE-8 для компиляции).

А ведь всего-то было достаточно при кодировании "цветной кнопки" назвать её
чуть-чуть иначе, чем TButton и прописать нужные модули в секцию зависимостей её
пакета...


Ну допустим, назовём её ColorButton.

А как во все модули форм прописывать? Как дура и буду бегать по всем формам, дописывать везде в секцию USES
, ColorButton
?

А если ColorMenu добавится - что - снова бегать по модулям и добавлять? Если приложение было сделано с обычными кнопками, а потом заказчик захотел цветные? А потом захотел, например, цветные меню.

Какое тут еще может быть решение кроме модулей, подключаемых списком ко всем формам приложения?

А что делать если весь проект написан с кучей TButton - например? Переделывать весь проект на основе другого компонента ради того, чтобы кнопки сделать цветными (а потом еще отлавливать баги)? И опять бегать по всем модулям?

А что делать со старыми формами? Где TButton, а не TColorButton? А этих форм сотни, т. к. в проекте более 400 тысяч строк кода?

Поверьте, открыть их все и бросить TColorButton на каждую - заняло бы гораздо
меньше времени чем год хаков.


Никакого года на хаки не потрачено. Проект продолжает вестись и развиваться на базе 2007. Просто время от времени компилируется на XE8, сборка на XE8 уже почти не имеет глюков и
практически не хуже, чем на 2007. Надеюсь, перейду полностью на XE8 в скором времени, 2007 роднее конечно, но к XE8 тоже уже почти привыкла. Торопиться не стоит - надо сначала убедиться, что действительно багов серьезных нет - может, еще полгода подождать что скажут пользователи. А потом в очередной раз AutoIt-ом преобразую проект из D2007 на XE-8 и от 2007 уйду насовсем без всяких систем контроля версий. А то продолжать вести проект на 2007 и компилировать на XE8 это означает не использовать новые возможности, что появились в XE-8.

Для Программиста - пожалуй, да.

А для быдлокодера - пожалуй, пару недель займёт :( зато мой проект из 400 000 строк на чистой D2007 компилируется. Думаю, в итоге приду к Вашему решению но уже после перехода на XE-8, в D2007 незачем уже огороды городить, надо с нее скорее уходить, 2021 год на дворе.

Перейти на XE-8 полностью теперь не проблема благодаря совету GunSmoker-а (можно переходить хоть прямо сейчас) - для этого не придется копировать одинаковые списки в каждый unit, а всё будет почти также красиво, как на D2007. Но думаю, еще полгодика лучше все же подожду - посмотрим, что юзеры скажут, баги поисправлять надо. А может полгода нет смысла тянуть и три месяца хватит ...

Для этого D11 неплохо бы сначала купить. А цены у них ну вы сами понимаете. Перейти с XE8 на XE10 вообще не проблема, времени займет пять минут в отличие от перехода с D2007 на XE8. Да и XE8 в принципе то неплохая среда, довольно современная.

Повторяю за аффтаршей медленно: старый проект постоянно допиливается, а СКВ,
которая могла бы облегчить слияние изменений, она ниасилила.


Да представляю примерно, что такое СКВ. Но не хочется с ними огород городить тем более переход уже на 99% сделан. Вносить доработки параллельно в 2 проекта на D2007 и на XE8 это ад и СКВ разве что облегчит этот процесс но лучше просто не вести 2 проекта параллельно тогда и с СКВ заморачиваться не нужно.

[quot northener#22393938]

Ну захотелось заказчику, чтобы все кнопочки в программе стали зелёными - пожалуйста. Через два дня захотелось чтобы стали красными - правок на 2 минуты. Можно вообще опцию сделать, изменяющую например цвет кнопок во всей программе.

Просто в базовом классе ColorForm (который подключим ко всем формам) прописываем нужные цвета (либо читаем из ini) и они автоматом обновятся во всех формах.