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

时间:2017-02-27 10:32:27

标签: delphi firemonkey

我需要调用FMX.Types中定义的Log.d。但是我的项目不是Firemonkey项目,它是一个VCL项目。它编译并按预期工作,但我收到此警告:

  

[dcc64提示] H2161警告:资源重复:输入12(CURSOR   GROUP),ID 32761;文件c:\ program files   (86)\ Embarcadero公司\工作室\ 18.0 \ LIB \ Win64的\发布\ FMX.Controls.Win.res   资源保存;文件c:\ program files   (x86)\ embarcadero \ studio \ 18.0 \ lib \ Win64 \ release \ Controls.res资源   丢弃。

他们的任何全局定义是否可以表明该项目是一个VCL项目,以便我可以省略在VCL项目中使用FMX.Types和Log.d

1 个答案:

答案 0 :(得分:2)

为了扩展我的评论,您可以通过简单地“酿造自己的”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;