Habe das bei mir mal so gelöst, das geht garantiert (bei dir kanns evtl probleme geben, wenn major kleiner ist und dann nur der Release größer oder so...)
Delphi-Quellcode:
function CompareValues(v1, v2: Integer): Integer;
begin
if v1 = v2 then
Result := 0 else
if v1 > v2 then
Result := -1 else
Result := 1;
end;
////////////////////////
Result := CompareValues(OriginalMajor, RemoteMajor);
if Result = 0 then
begin
Result := CompareValues(OriginalMinor, RemoteMinor);
if Result = 0 then
begin
Result := CompareValues(OriginalRelease, RemoteRelease);
if Result = 0 then
Result := CompareValues(OriginalBuild, RemoteBuild);
end;
end;
mfG
mirage228