"Version Compare" / Major/Minorversion Vergleich

[slemke76]

Hallo zusammen,

vielen Dank für die Anregungen - die Lösung aus dem AutoIT gefällt mir ab besten, da man nicht nur den exakten Vergleich sondern auch kleiner/größer machen könnte.

Ein Naturalcompare wird vermutlich bei diesem Beispiel nicht korrekt funktionieren: 10.6.2 gegen 10.10.2 - da wird die 10.10 als "älter" erkannt, da 1 vor 6 sortiert wird. Oder täusche ich mich jetzt?

Da ich derjenige bin, der das Program compiliert, möchte ich auch gerne die Meldung beim compilieren haben - eine Ausgabe zur Laufzeit (irgendwo in einer Unit, die man womöglich nicht jedesmal neu durchtestet) könnte man (= ich) übersehen

Ich habe es jetzt mehrere Lösungen, die ich nicht vorenthalten möchte:

Delphi-Quellcode:

{$i IdCompilerDefines.inc}

{$IFNDEF INDY100}
  {$MESSAGE Error 'This project must be compiled against Indy 10'}
{$ENDIF}
{$IFNDEF 10_6_2}
  {$MESSAGE Error 'This project must be compiled against Indy 10.6.2'}
{$ENDIF}

Wobei ich die Benennung von "10_6_2" unglücklich finde - "INDY10_6_2" wäre wohl besser gewesen, zumal folgende Bedingung nicht funktioniert: {$IF not Defined(INDY100) or not Defined(10_6_2)}

Das ganze macht natürlich nur einen exakten Vergleich - das ist etwas unglücklich, deswegen habe ich das anders gelöst - zuerst habe ich noch Multipliziert, aber dann bitweise verschoben und verknüpft - auch wenn nicht relevant bei heuten CPUs sicherlich die schnellste Lösung:

Delphi-Quellcode:

const
  {$i IdVers.inc}

  gsIdMinVersionMajor = 10;
  gsIdMinVersionMinor = 6;
  gsIdMinVersionRelease = 2;

  gsIdActualBitwise = ( gsIdVersionMajor shl 20) OR ( gsIdVersionMinor shl 10) OR gsIdVersionRelease;
  gsIdMinimumBitwise = ( gsIdMinVersionMajor shl 20 ) OR ( gsIdMinVersionMinor shl 10 ) OR gsIdMinVersionRelease;

{$IF not Declared(gsIdActualBitwise) or ( gsIdActualBitwise < gsIdMinimumBitwise )}
  {$MESSAGE Error 'Indy Version is too old.'}
{$IFEND}

Ich hoffe, es hilft irgendwann einmal jemanden

Grüße
Sebastian

[himitsu]

Statt Integern vielleicht mit Floats?

major.minor
major.minorxyz

1.2.3.4

1.020304

CompilerVersion

[slemke76]

Hallo,

kann nicht ganz folgen, stehe auf dem Schlauch Bekommt man das schöner hin?

Die Definition, die von den Indys zur Verfügung steht sieht so aus: https://github.com/graemeg/indy/blob...tem/IdVers.inc

Sebastian

[Uwe Raabe]

Delphi-Quellcode:

{$IF (gsIdVersionMajor <> 10) or (gsIdVersionMinor <> 6) or (gsIdVersionRelease <> 2) or (gsIdVersionBuild <> 0)}
{$MESSAGE Fatal 'Falsche Indy-Version!'}
{$ENDIF}

[slemke76]

Hallo,

Zitat von Uwe Raabe:

Delphi-Quellcode:

{$IF (gsIdVersionMajor <> 10) or (gsIdVersionMinor <> 6) or (gsIdVersionRelease <> 2) or (gsIdVersionBuild <> 0)}
{$MESSAGE Fatal 'Falsche Indy-Version!'}
{$ENDIF}

Beim Update der Komponente auf eine neuere Version muss ich das anpassen, bei meiner Lösung nicht, da ist es ein Minimum- und kein Exaktes Requirement.

Grüße
Sebastian

[Uwe Raabe]

Zitat von slemke76:

Beim Update der Komponente auf eine neuere Version muss ich das anpassen, bei meiner Lösung nicht, da ist es ein Minimum- und kein Exaktes Requirement.

Das mit dem "mindestens" hatte ich übersehen.

[himitsu]

{$IF (gsIdVersionMajor > 10) or ((gsIdVersionMajor = 10) and (gsIdVersionMinor > 6)) or ((gsIdVersionMajor = 10) and (gsIdVersionMinor = 6) and (gsIdVersionRelease > 2)) or ((gsIdVersionMajor = 10) and (gsIdVersionMinor = 6) and (gsIdVersionRelease = 2) and (gsIdVersionBuild >= 0))}

Nja, es gibt mehrere Varianten für das Gleiche.

Delphi-Quellcode:

gsIdVersion = '10.06.02.01';  // 00-09 mit führender 0 oder Leerzeichen, aber besser die 0
{$IF gsIdVersion >= '10.02.00.00'}
{$IF gsIdVersion >= '10.00.00.00'}

gsIdVersion = 10060201;
{$IF gsIdVersion >= 10020000}
{$IF gsIdVersion >= 10000000}

gsIdVersion = 10.060201;
{$IF gsIdVersion >= 10.02}
{$IF gsIdVersion >= 10}

Meistens interessieren Einen nur die erste oder die ersten beiden Stellen (Major und Minor),
da ist dann das Letztere halt einfacher/verständlicher.

Nachteil bei all diesen Dingen: Die subversionen dürfen nur Werte von 0 bis 99 haben.
Bei String darfs der Major auch nur 0 bis 99, aber dei den Numerischen kann es auch größer/kleiner sein.

[slemke76]

Hallo,

Zitat von Uwe Raabe:

Das mit dem "mindestens" hatte ich übersehen.

Alles gut, ich freue mich über das viele Feedback

@himitsu:
Ich sehe das tatsächlich in diesem Falle nicht ganz, die Definition von gsIdVersion kommt aus den Indys, da habe ich keinen Einfluss drauf:

gsIdVersion = '10.6.2.0'; {do not localize} und da fehlen bei der Minorversion und dem Release die führende "0".

Grüße,
Sebastian