Die JCL unterstützt auch das sogenannte
Unit-Versioning.
Dazu kann man in jede
Unit, die man überwachen will einen const Record einfügen:
Delphi-Quellcode:
{$IFDEF UNITVERSIONING}
const
UnitVersioning: TUnitVersionInfo = (
RCSfile: '
$URL: [url]https://jcl.svn.sourceforge.net:443/svnroot/jcl/tags/JCL-1.101-Build2725/jcl/source/common/JclFileUtils.pas[/url] $';
Revision: '
$Revision: 2101 $';
Date: '
$Date: 2007-08-04 22:00:43 +0200 (sam., 04 août 2007) $';
LogPath: '
JCL\source\common'
);
{$ENDIF UNITVERSIONING}
....
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.
Es gibt dann Funktionen (
Unit JclUnitVersioning), um diese Informationen auszulesen.
Dieses System funktioniert auch dann, wenn BPLs benützt werden.