Programmversionen vergleichen + Update

[baumina]

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;