Добрый день!



Мучаюсь с переводом большого проекта с 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 не понимает - но при этом с радостью вставляет свою шушару и делает проект некомпилируемым.