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

Question

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

Проблема в том, что когда я делаю что-то, что меняет код проекта, код разрушается и прерывается. Например, строка, которая указывает Application.Initialize;, становится AppliApplication.Initialize;, а линия, которая имеет {$R *.RES}, обрезается до S}, и большинство моих условных обозначений удаляются.

Мне интересно, есть ли способ преодолеть эту проблему, если есть какие-либо трюки, или мне просто нужно усмехнуться и вынести это?

Вот файл ниже, как я хотел бы, чтобы остаться ...

program JDRMServer; 

uses 
{$IFDEF TESTAPP} 
    FastMM4, 
    Vcl.Forms, 
{$ELSE} 
    Vcl.SvcMgr, 
{$ENDIF TESTAPP} 
    uJDRMServer in 'uJDRMServer.pas' {JDRMSvr: TService}, 
    uJDRMSessions in 'uJDRMSessions.pas', 
    uJDRMSvrCli in 'uJDRMSvrCli.pas', 
    uJDRMSvrDsh in 'uJDRMSvrDsh.pas', 
    JDDB in 'JDDB.pas', 
    uJDRMServerTEST in 'uJDRMServerTEST.pas' {JDRMSvrTest}, 
    uJDRMServerThread in 'uJDRMServerThread.pas', 
    uJDRMSvrMessages in 'uJDRMSvrMessages.pas'; 

{$R *.RES} 

begin 

{$IFDEF TESTAPP} 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TJDRMSvrTest, JDRMSvrTest); 
{$ELSE} 
    if (not Application.DelayInitialize) or (Application.Installing) then 
    Application.Initialize; 
    Application.CreateForm(TJDRMSvr, JDRMSvr); 
{$ENDIF TESTAPP} 
    Application.Run; 
end. 

Answer 1

Как говорит Дэвид, вы застряли в IDE, полагая, что dpr - это собственный частный двор. Самое простое решение - просто иметь все в отдельном блоке и удалять условные выражения из предложения использования dpr. FastMM пригодится как в вашей версии сервиса, так и в тестовом приложении, и различие между vcl.forms и vcl.svcMgr может быть выполнено в этом отдельном блоке.

ДПР будет снижено до:

uses 
    FastMM4, 
    YourAppMain, 
    uJDRMServer, 
    uJDRMSessions, 
    uJDRMSvrCli in 'uJDRMSvrCli.pas', 
    uJDRMSvrDsh in 'uJDRMSvrDsh.pas', 
    JDDB in 'JDDB.pas', 
    uJDRMServerTEST in 'uJDRMServerTEST.pas' {JDRMSvrTest}, 
    uJDRMServerThread in 'uJDRMServerThread.pas', 
    uJDRMSvrMessages in 'uJDRMSvrMessages.pas'; 

{$R *.RES} 

begin 
    YourAppMain.Execute; 
end; 

И ваш блок главного приложения будет взять остальную часть кода из ДПР:

unit YourAppMain; 

interface 

procedure Execute; 

implementation 

uses 
{$IFDEF TESTAPP} 
    Vcl.Forms, 
{$ELSE} 
    Vcl.SvcMgr, 
{$ENDIF TESTAPP} 
    OtherUnits; 

procedure Execute; 
begin 
{$IFDEF TESTAPP} 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TJDRMSvrTest, JDRMSvrTest); 
{$ELSE} 
    if (not Application.DelayInitialize) or (Application.Installing) then 
    Application.Initialize; 
    Application.CreateForm(TJDRMSvr, JDRMSvr); 
{$ENDIF TESTAPP} 
    Application.Run; 
end; 

end. 

Answer 2

Да, IDE делает это и всегда делал. Не существует известного способа остановить это поведение. Тебе просто придется втянуть его.

У меня есть аналогичные условия и то, как я с ними справляюсь, это использовать мою систему контроля версий, чтобы помочь мне в момент фиксации отменить изменения, которые делает IDE. Поэтому всякий раз, когда я проверяю файл .dpr, я просматриваю различия и возвращаю фиктивные.

Я также пытаюсь добавить и удалить единицы из проекта, отредактировав файл .dpr, а не позволяя IDE делать это. Это, как правило, снижает частоту появления фальшивых мод.

Answer 3

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