delphi - 为什么使用 JCL UNITVERSIONING？

Question

JCL 库有一个条件定义UNITVERSIONING。我不知道为什么这个选项存在，也不知道如何使用它。我知道有一个叫 JclUnitVersioning.pas 的单元，但是找不到用处。

在真实的项目中在哪里使用它？

Answer 1

它支持JclUnitVersioning单元，它以更连贯的方式公开这些常量：

{$IFDEF UNITVERSIONING}
const
  UnitVersioning: TUnitVersionInfo = (
    RCSfile: '$URL: https://jcl.svn.sourceforge.net/svnroot/jcl/tags/JCL-1.101-    Build2725/jcl/source/common/Jcl8087.pas $';
    Revision: '$Revision: 1$';
    Date: '$Date: 12/05/2008 10:29:10$';
    LogPath: 'JCL\source\common'
    );
{$ENDIF UNITVERSIONING}

该单元的旧版本在JclUnitVersioning这里] 1并让您大致了解它是如何工作的：该单元有一个全局function GetUnitVersioning: TUnitVersioning;变量，它可以为您提供支持 UNITVERSIONING 的所有单元的版本信息。

从那里您可以枚举它们，并询问详细信息。

例如，当您想知道某个单元的哪个确切版本链接到您的 .EXE 时，这非常方便。

——杰伦