Zwei Versionen über „for“ vergleichen

[xZise]

Moin himitsu,
Stimmt Aber deine Funktion ergibt auch "wahr", da Major != NewMajor ist.

Zitat von himitsu:

[...]

Delphi-Quellcode:

if NewMajor {3} < Major {4} {true} then
begin
  if (NewMajor {3} = Major {4} {false}) and (NewMinor < Minor) then
  begin
    if (NewMinor = Minor) and (NewRelease < Release) then
    begin
      if (NewRelease = Release) and (NewBuild < Build) then
      begin
        FNewVersion := false;
      end else
        FNewVersion := true;
    end else
      FNewVersion := true;
  end else
    FNewVersion := true;
end else
  FNewVersion := true;

Um genau zu sein, ist die Überprüfung ob die Werte gleich sind obsolet, da sie eh nie durchkommen würden (wobei dadurch das nicht mehr gehen würde).

Mein Vorschlag:

Delphi-Quellcode:

FNewVersion := false;
if NewMajor = Major then
begin
  if NewMinor = Minor then
  begin
    if NewRelease = Release then
    begin
      if NewBuild > Build then
      begin
        FNewVersion := true;
      end;
    end
    else if NewRelease > Release then
      FNewVersion := true;
  end
  else if NewMinor > Minor then
    FNewVersion := true;
end
else if NewMajor > Major then 
  FNewVersion := true;

Zu Nikolai: Wie machst du den Vergleich?

Delphi-Quellcode:

var
  Ver, NewVer : TVersion;
begin
  if Ver... < NewVer... then
    FNewVersion := true
  else
    FNewVersion := false;
end;

MfG
xZise