Versionsnummern vergleichen?

[Hawkeye219]

Hi,

ohne Records und auch ziemlich fehlertolerant, aber die Routine sollte ihren Zweck auf Intel-Systemen erfüllen:

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;

// Beispiel für einen Aufruf:
if (VersionNumberFromString('2.0') > VersionNumberFromString('1.5.10.9999')) then
  ShowMessage ('Update verfügbar!');

Gruß Hawkeye