如何正确配置跨平台Delphi XE2项目？

Question

现在我有 2 个平台（Mac 和 Win32）和 2 个配置（调试和发布）。整个事情都在SVN下。

这是构建输出的布局：

.\App\$(Platform)\$(Config)

代码被分成几个文件夹并位于此处：

.\Code\MyProject.dpr
.\Code\Common\
.\Code\Forms\
.\Code\Source\

常见数据文件位于此处：

.\Data\ custom data files (dlls, textures, models, etc.)

虽然该方案有某些缺陷，我需要解决这些缺陷，但我不知道如何改进。我只想在 SVN 的 Data 文件夹下有一组数据文件，但我需要在构建时自动将其复制到 .\App\$(Platform)\$(Config) 路径（注意，某些数据文件对于两个平台都是通用的，但有些则不是）。有没有办法设置构建过程来复制文件，就像部署和 PAServer 一样？或者，我可以将数据文件的路径设置为 ..\..\Data，但这对我来说看起来很奇怪。

也许还有一些我不知道的其他选项，或者项目布局可以完全改变？您将如何设置项目结构并构建跨平台编译？

Answer 1

使用构建后操作。

从项目选项 |构建活动 |构建后事件 |命令

进一步阅读

1. 创建构建事件

2. Delphi 中的构建前和构建后自动化

Answer 2

好的，这是一篇旧文章，但这就是我在 Delphi 中所做的（在 Visual Studio 中也类似），以解决在不同文件夹中具有不同平台/配置输出可执行文件但有一组通用数据的问题。我有一个功能可以去除“子”文件夹部分，然后我的应用程序始终可以访问这些文件夹根目录中的通用数据（在您的情况下为 .\App）。当然，您可以根据需要向函数 ProjectPath 添加更多平台和配置：

uses System.StrUtils;
...
function ProjectPath : string;
// Removes sub-folders created by the Delphi IDE, so the executable can refer to the source folder,
// rather than to where the executable is.
// Excludes trailiong path delimiter
begin
  Result := ExtractFilePath (Application.ExeName);
  Result := System.StrUtils.ReplaceText (Result, '\Win32'  , '');    // ReplaceText is case insensitive
  Result := System.StrUtils.ReplaceText (Result, '\Win64'  , '');
  Result := System.StrUtils.ReplaceText (Result, '\Debug'  , '');
  Result := System.StrUtils.ReplaceText (Result, '\Release', '');
  Result := ExcludeTrailingPathDelimiter (Result);
end;
...
ConnectionString := 'Database=' + ProjectPath +'\DATAFILE.DAT;etc.';