Delphi 什么会导致编译器不生成控制台输出

Delphi 什么会导致编译器不生成控制台输出,delphi,delphi-2010,dunit,Delphi,Delphi 2010,Dunit,我有一个DUnit项目,如果我添加一些单元,它将不会编译为控制台。 项目(dpr)由向导创建,并定义了CONSOLE\u TESTRUNNER {$IFDEF CONSOLE_TESTRUNNER} {$APPTYPE CONSOLE} {$ENDIF} begin Application.Initialize; if IsConsole then // <-- IsConsole is set to False. with TextTestRunner.RunRegis

我有一个DUnit项目,如果我添加一些单元,它将不会编译为控制台。
项目(dpr)由向导创建,并定义了
CONSOLE\u TESTRUNNER

{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}

begin
  Application.Initialize;
  if IsConsole then // <-- IsConsole is set to False.
    with TextTestRunner.RunRegisteredTests do
      Free
  else
    GUITestRunner.RunRegisteredTests;
end.
{$IFDEF控制台\u TESTRUNNER}
{$APPTYPE控制台}
{$ENDIF}
开始
应用程序初始化;

如果是IsConsole,那么//该代码对我来说很好。我能想到Delphi不生产控制台应用程序的两个原因:

  • 未定义控制台\u TESTRUNNER
  • 您的项目代码中有
    {$APPTYPE GUI}

  • 我有理由相信上述第2项是您出现问题的原因。

    谢谢,这是APPTYPE。啊。