DXE4: Automatische Buildnummer erzeugen geht nicht

[nahpets]

Hatte vor längerer Zeit mal 'nen "Spielexperten" gepostet: http://www.delphipraxis.net/131395-b...leexperte.html

Das folgende wäre eine Idee für 'ne Umgehung des Problems mit Hilfe eines Experten.
Die Methode BeforeCompile dahingehend ändern:

Delphi-Quellcode:

procedure TBeforeCompile.BeforeCompile(const Project: IOTAProject; IsCodeInsight: Boolean; var Cancel: Boolean);
var
  sDof : String;
begin
  if not IsCodeInsight then begin
  sDof := ChangeFileExt(Project.FileName,'.dof');
  if FileExists(sDof) then begin
    Project.ProjectOptions.Values['Build']        := Project.ProjectOptions.Values['Build'] + 1;
    if Project.ProjectOptions.Values['Build'] > 999 then begin
      Project.ProjectOptions.Values['Build']   := 0;
      Project.ProjectOptions.Values['Release'] := Project.ProjectOptions.Values['Release'] + 1;
    end;
    if Project.ProjectOptions.Values['Release'] > 999 then begin
      Project.ProjectOptions.Values['Release'] := 0;
      Project.ProjectOptions.Values['MinorVersion'] := Project.ProjectOptions.Values['MinorVersion'] + 1;
    end;
    if Project.ProjectOptions.Values['MinorVersion'] > 999 then begin
      Project.ProjectOptions.Values['MajorVersion'] := Project.ProjectOptions.Values['MajorVersion'] + 1;
      Project.ProjectOptions.Values['MinorVersion'];
    end;
  End;
end;

Habe sowas in der Art in 'nem Experten, den ich mit Delphi 7 nutze.

Allerdings wird die Buildnummer dann bei jedem Kompilieren hochgezählt.