delphi – 为什么要使用JCL UNITVERSIONING？

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

在真正的单词项目中何处使用它？

解决方法

它支持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并且让您大致了解它是如何工作的：该单元具有全局函数GetUnitVersioning：TUnitVersioning;它为您提供了支持UNITVERSIONING的所有单元的版本信息.

从那里你可以列举它们,并询问细节.

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

–jeroen

原文地址：https://www.jb51.cc/delphi/102183.html