Delphi-Version anzeigen

[Uwe Raabe]

Zitat von Maekkelrajter:

Meine aktuelle Version ist 11.3 (CE). 'Compilerversion' und 'RTLVersion' ist 35, woraus man schließen kann, dass es sich um die Version 11 handelt (die wohl ursprünglich 10.5 heißen sollte).
Wie aber kann man zur Laufzeit auch das aktuelle Update ermitteln, sodass als Version '11.3' erscheint?

Zusätzlich zu RTLVersion = 35.0 sind in 11.3 noch die Konstanten RTLVersion111, RTLVersion112 und RTLVersion113 deklariert. Damit lassen sich die Unterversionen prüfen. Da aber in 11.2 das RTLVersion113 noch nicht bekannt war, in 11.1 auch das RTLVersion112 und in 11.0 keines der drei, kann man diese Konstanten nicht im compilierten Code prüfen. Stattdessen prüft man das über ein declared.

Delphi-Quellcode:

  if RTLVersion = 35.0 then begin
    DelphiVersion := '11';
{$IF Declared(RTLVersion111)}
    DelphiVersion := '11.1';
{$ENDIF} 
{$IF Declared(RTLVersion112)}
    DelphiVersion := '11.2';
{$ENDIF} 
{$IF Declared(RTLVersion113)}
    DelphiVersion := '11.3';
{$ENDIF} 
  end;

[Maekkelrajter]

Zitat von Uwe Raabe:

Zusätzlich zu RTLVersion = 35.0 sind in 11.3 noch die Konstanten RTLVersion111, RTLVersion112 und RTLVersion113 deklariert. Damit lassen sich die Unterversionen prüfen. Da aber in 11.2 das RTLVersion113 noch nicht bekannt war, in 11.1 auch das RTLVersion112 und in 11.0 keines der drei, kann man diese Konstanten nicht im compilierten Code prüfen. Stattdessen prüft man das über ein declared.

Delphi-Quellcode:

  if RTLVersion = 35.0 then begin
    DelphiVersion := '11';
{$IF Declared(RTLVersion111)}
    DelphiVersion := '11.1';
{$ENDIF} 
{$IF Declared(RTLVersion112)}
    DelphiVersion := '11.2';
{$ENDIF} 
{$IF Declared(RTLVersion113)}
    DelphiVersion := '11.3';
{$ENDIF} 
  end;

Ja, genauso funktioniert's wunschgemäß. Danke!

Gruß LP

[lxo]

Hier alle Delphi-Versionen ab Delphi XE
ältere Versionen, siehe https://delphidabbler.com/notes/version-numbers

Delphi-Quellcode:

{$IF False}
{$ELSEIF (CompilerVersion = 35) and Declared(RTLVersion113)} cDelphiVersion = '11.3 Alexandria';
{$ELSEIF (CompilerVersion = 35) and Declared(RTLVersion112)} cDelphiVersion = '11.2 Alexandria';
{$ELSEIF (CompilerVersion = 35) and Declared(RTLVersion111)} cDelphiVersion = '11.1 Alexandria';
{$ELSEIF CompilerVersion = 35} cDelphiVersion = '11 Alexandria';
{$ELSEIF CompilerVersion = 34} cDelphiVersion = '10.4 Sydney';
{$ELSEIF CompilerVersion = 33} cDelphiVersion = '10.3 Rio';
{$ELSEIF CompilerVersion = 32} cDelphiVersion = '10.2 Tokyo';
{$ELSEIF CompilerVersion = 31} cDelphiVersion = '10.1 Berlin';
{$ELSEIF CompilerVersion = 30} cDelphiVersion = '10 Seattle';
{$ELSEIF CompilerVersion = 29} cDelphiVersion = 'XE8';
{$ELSEIF CompilerVersion = 28} cDelphiVersion = 'XE7';
{$ELSEIF CompilerVersion = 27} cDelphiVersion = 'XE6';
{$ELSEIF CompilerVersion = 26} cDelphiVersion = 'XE5';
{$ELSEIF CompilerVersion = 25} cDelphiVersion = 'XE4';
{$ELSEIF CompilerVersion = 24} cDelphiVersion = 'XE3';
{$ELSEIF CompilerVersion = 23} cDelphiVersion = 'XE2';
{$ELSEIF CompilerVersion = 22} cDelphiVersion = 'XE';
{$ELSE} cDelphiVersion = 'Unbekannt';
{$ENDIF}