是什么導致編譯器無法產生控制台輸出

Question

我有一個DUnit項目，如果添加一些單元，該項目將不會編譯為Console。
由向導創建項目（dpr），並定義CONSOLE_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.

使它失敗的單元包括一些VCL組件，但是沒有對它們進行任何測試。
我什至嘗試設置鏈接器選項，但沒有區別。
有人遇到過類似的問題嗎？
僅作說明：該項目是Delphi 2010中的Win32。

Answer 1

該代碼對我來說很好用。 我可以想到Delphi不生產控制台應用程序的兩個原因：

1. 未定義CONSOLE_TESTRUNNER 。
2. 您的項目代碼中的某處有{$APPTYPE GUI} 。

我有理由相信上述第2項是造成您問題的原因。