Version beim kompilieren in den Quellcode

[hathor]

Ich verwende schon seit längerer Zeit als Versionsangabe ein Datumsformat in der Form YYYYMMDD.
Es wird beim Compilieren erzeugt:

Delphi-Quellcode:

var
    Compiled: TDateTime;
   version : String;
   year, month, day : string; 
   d,m,y: word;

Begin
FileAge(ParamStr(0), Compiled);
Version:= DateTimeToStr( Compiled );
DecodeDate(Compiled, y, m, d);
year:=IntToStr(y); month:=IntToStr(m); day:=IntToStr(d);
if length(month)=1 then month:='0'+month; if length(day)=1 then day:='0'+day;
Version:= year+month+day;
.
.
.