Поддерживается модуль 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.
- Йерун