Einzelnen Beitrag anzeigen

Benutzerbild von mirage228
mirage228

Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
 
Delphi 2010 Professional
 
#7

Re: else ifs werden übersprungen

  Alt 11. Sep 2007, 19:15
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
David F.

May the source be with you, stranger.
PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
  Mit Zitat antworten Zitat