Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.418 Beiträge
 
Delphi 7 Professional
 
#5

AW: Projekt -> Optionen: Build-Nr. autom. setzen anhand eines Schemas

  Alt 7. Okt 2021, 09:32
Mit Bordmitteln geht das zumindest nicht.
Das würde ich so allgemein nicht stehen lassen.

Mit einem BeforeCompileExperten für die IDE lässt sich das mit Sicherheit machen. Mit dem kann man die entsprechenden Infos in die .dof schreiben und der Compiler kann dann die gewünschten Infos in die Exe übernehmen.

Grundgerüst dazu siehe hier: Before- und Aftercompileexperte

Im BeforeCompile kommt man an die Projektoptionen, sowas in der Art:
Delphi-Quellcode:
  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;
  Project.ProjectOptions.ModifiedState := True;
Zumindest unter Delphi 7 funktioniert das. Neuer Delphis? Ausprobieren

Die entsprechenden Werte nun nach der gewünschten Logik dort einzufügen, dürfte kein (unlösbares) Problem sein.
  Mit Zitat antworten Zitat