Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#15

Re: Version der BPL ermitteln

  Alt 24. Apr 2009, 12:21
also ohne Experte wohl einfach so
Delphi-Quellcode:
// Projektoptionen > Pre-Build:
CreateBPLVersionInfo.exe


// einbinden / prüfen:
{$INCLUDE "BPLVersion.inc"}

...
Caption := MyBPLVersion;


// die BPLVersion.inc
const MyBPLVersion = '1.2.3.4';
aber besser wohl so ... da hat man auch gleich eine bessere Möglichkeit zu prügen ob die Pre/Post-Build-Ereignisse in den Optionen eingetragen sind
und somit Version möglichst aktuell wäre.
Delphi-Quellcode:
// Projektoptionen > Pre-Build:
CreateBPLVersionInfo.exe "BPL-Name" "MyBPLVersion" "BPLVersion.inc"


// Projektoptionen > Post-Build:
DEL "BPLVersion.inc"


// einbinden / prüfen:
{$INCLUDE "BPLVersion.inc"}
{$IF not Declared(MyBPLVersion))
  {$MESSAGE Error 'MyBPLVersion ist nicht definiert (eventuell Pre/Post-Build-Ereignisse prüffen)'}

{$IFEND}

...
Caption := MyBPLVersion;


// die .INC (z.B. "BPLVersion.inc")
const MyBPLVersion = '1.2.3.4';
CreateBPLVersionInfo.exe bracht ja nur 'ne kleine Consolenanwendung sein, welche die Version ausließt und die .INC erstellt (über die Parameter könnte man dieses dann so gestalten, daß man dieses eine Programm für mehrere BPLs verwenden kann)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat