Einzelnen Beitrag anzeigen

Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Programmversionen vergleichen + Update

  Alt 3. Feb 2016, 13:47
EDIT : ** Moment, da hab ich was falsches kopiert **

Das hier ist das was ich kopieren wollte, das wandelt den Versionsstring (z.B. '4.2.3') in einen Int64 um, den man dann für den Versionsvergleich verwenden kann:

Delphi-Quellcode:
function VersionNumberFromString (s: string): Int64;
var
  ErrPos : Integer;
  Index : Integer;
  Parts : packed array [0..3] of Word;

begin
  FillChar(Parts, SizeOf(Parts), 0);
  for Index := 3 downto 0 do
  begin
    Val (s, Parts[Index], ErrPos);
    if (ErrPos = 0) then Break;
    Delete (s, 1, ErrPos);
  end;
  Result := Int64(Parts);
end;
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)

Geändert von baumina ( 3. Feb 2016 um 13:56 Uhr)
  Mit Zitat antworten Zitat