Delphi XE2: есть ли предопределенное условие для идентификации VCL и FireMonkey?

Как говорят другие, нет условной директивы, определяющей, является ли ваше приложение VCL или FireMonkey. Я думаю, что самый надежный способ определить, является ли ваше приложение FireMonkey или VCL, - это использовать функцию вместо условной директивы.

Что-то вроде

Uses
 Rtti;

function IsVCLApp:Boolean;
begin
 Result:= CompareText(TRttiContext.Create.GetType(TApplication.ClassInfo).QualifiedName,'Vcl.Forms.TApplication')=0;
end;

function IsFireMonkeyApp:Boolean;
begin
 Result:= CompareText(TRttiContext.Create.GetType(TApplication.ClassInfo).QualifiedName,'FMX.Forms.TApplication')=0;
end;

Хотя это не задокументировано, вы можете использовать VCL и Firemonkey в одном приложении.

Нет определения компилятора.

Если вы создаете что-то, что должно быть одновременно VCL и Firemonkey, я бы рекомендовал разделить эти модули.

Возможный способ:

• MyLibrary.X.pas - Общий код, который будет использовать как VCL, так и Firemonkey.
• MyLibrary.Vcl.X.Pas - специальный код Vcl
• MyLibrary.Fmx.X.Pas - специальный код для FMX

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

Директивы компилятора нет, потому что технически не существует таких вещей, как приложение firemonkey или приложение vcl. Только приложения, использующие эти технологии. Приложение может использовать fxm или vcl, либо оба, либо ни то, ни другое (например, консольное приложение). Это немного похоже на вопрос, является ли это приложением SQL. Конечно, вы можете программно проверять происхождение отдельных форм, чтобы увидеть, от какой структуры они наследуются. Опять же, внутри единицы, не имеющей связанной формы, это не имеет значения.

Кажется, что компилятор не определен специально для VCL / FireMonkey. Вам нужно будет создать свой собственный.

Список предопределенных условных операторов можно найти в документации.

Abbrevia поддерживает как VCL, так и CLX с использованием такого разделения:

QAbUnit1.pas:

{$DEFINE UsingCLX}
unit QAbUnit1;
{$I AbUnit1.pas}

AbUnit1.pas:

{$IFNDEF UsingCLX}
{$DEFINE UsingVCL}
unit AbUnit1;
{$ENDIF}

type
  ...
  TMyWidget = class({$IFDEF UsingVCL}TWinControl{$ENDIF}
                    {$IFDEF UsingCLX}TWidgetControl{$ENDIF})
  ...
  end;

end.

Чтобы добавить поддержку FireMonkey, я бы добавил такой файл:

FmxAbUnit1.pas:

{$DEFINE UsingFMX}
unit FmxAbUnit1;
{$I AbUnit1.pas}
{$ENDIF}

а затем внесите необходимые условные изменения в AbUnit1.pas.

Это не очень хорошее чистое разделение, как предложение Роберта, но преимущество состоит в том, что все ваше редактирование происходит в одном файле, а условное определение обрабатывается автоматически, поэтому его не нужно указывать в параметрах проекта. Кто когда-либо использует вашу библиотеку, просто включает соответствующий модуль, чтобы решить, какой из них они хотят использовать. Вы, вероятно, могли бы также воспользоваться преимуществом определения области видимости, назвав файлы Fmx.AbUnit1.pas и Vcl.AbUnit1.pas, но я думаю, что Embarcadero не одобряет этого.

Попробуйте этот фрагмент:

{$IF Declared(FMX)}
  // FMX code here. To test this approach you may use {$MESSAGE FATAL 'FMX'}
{$ELSEIF Declared(VCL)}
  // VCL code here. To test this approach you may use {$MESSAGE FATAL 'VCL'}
{$IFEND}

Он проверяет, было ли объявлено соответствующее пространство имен с использованием директива компиляции IF

Поскольку FMX не является взаимоисключающим с VCL, может потребоваться добавить следующие ветки:

{$ELSEIF Declared(FMX) and Declared(VCL)}
  // FMX+VCL code here. To test: {$MESSAGE FATAL 'FMX+VCL'}
{$ELSE}
  // no GUI frameworks code here. To test: {$MESSAGE FATAL 'no GUI frameworks'}