delphi - 如何在VCL项目中包含FMX.Types

Question

我需要调用在FMX.Types中定义的Log.d。但是我的项目不是Firemonkey项目，而是VCL项目。它可以编译并按预期工作，但我收到此警告：


[dcc64提示] H2161警告：重复的资源：类型12（CURSOR
GROUP），ID 32761；文件c：\ program文件
（x86）\ embarcadero \ studio \ 18.0 \ lib \ Win64 \ release \ FMX.Controls.Win.res
保留资源；文件c：\ program files
（x86）\ embarcadero \ studio \ 18.0 \ lib \ Win64 \ release \ Controls.res资源
丢弃。


他们是否有任何全局定义可以表明该项目是VCL项目，因此我可以在VCL项目上省略使用FMX.Types和Log.d吗？

Answer 1

为了进一步说明我的观点，您可以通过简单地“制作自己的” Log.d等价物来回避整个问题。 Log.d在Windows上调用OutputDebugString，因此您可以按照以下内容进行构建，并将FMX.Types帮助器单元完全排除在等式之外，从而完全避免出现此问题：

uses Windows;

procedure Log(const Msg: string; const Args: array of const); overload;
var
  LMsg: string;
begin
  LMsg := Format(Msg, Args);
  OutputDebugString(PChar(LMsg));
end;

procedure Log(const Msg: string); overload;
begin
  OutputDebugString(PChar(Msg));
end;