IDE: Versionsnummer mit führender 0?

[t.roller]

Siehe Anhang.


Alternative:

Delphi-Quellcode:

uses ...System.AnsiStrings,...

// to pad = mit Zeichen auffüllen
function LeftPad(value: string; length:integer=4; pad:char='0'): string; overload;
begin
   result := RightStr(StringOfChar(pad,length) + value, length );
end;

function GetAppVersionString: string;
var
  Rec: LongRec;
begin
  Rec := LongRec(GetFileVersion(ParamStr(0)));
  Result := 'FileVersion: '+LeftPad(Format('%d.%d', [Rec.Hi,Rec.Lo]));
end;

Ausgabe:
FileVersion: 01.0
...
FileVersion: 09.0
FileVersion: 10.0

oder so:

Delphi-Quellcode:

function GetAppVersionString2: string;
var
  Rec: LongRec;
begin
  Rec := LongRec(GetFileVersion(ParamStr(0)));
  Result := 'FileVersion: '+Format('%.*d.%.*d', [2, Rec.Hi,2, Rec.Lo]);
end;

Ausgabe:
FileVersion: 01.00
...
FileVersion: 09.00
FileVersion: 10.00