Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zwei Versionen über „for“ vergleichen (https://www.delphipraxis.net/125861-zwei-versionen-ueber-%84%93-vergleichen.html)

xZise 13. Dez 2008 11:24


Zwei Versionen über „for“ vergleichen
 
Hallo ihr,

zur Zeit vergleiche ich zwei Versionen folgendermaßen:
Delphi-Quellcode:
  if NewMajor <= Major then
  begin
    if NewMinor <= Minor then
    begin
      if NewRelease <= Release then
      begin
        if NewBuild <= Build then
        begin
          FNewVersion := false;
        end else
          FNewVersion := true;
      end else
        FNewVersion := true;
    end else
      FNewVersion := true;
  end else
    FNewVersion := true;
Wie kann ich das nun in eine Schleife umwandeln, wenn man statt 8 separate Variablen zwei eindimensionale Array hat?

Zur Zeit sieht es so aus:
Delphi-Quellcode:
  Result := true;
  for i := 0 to High(oldVersion) do
  begin
    if newVersion[i] < oldVersion[i] then
      Result := false;
  end;
Aber dort gibt es das Problem, dass das Ergebnis wahr wird, wenn die Versionen identisch sind. In diesem Falle, hätte ich aber gerne ein negatives Ergebnis (s.o.).

MfG
xZise

DeddyH 13. Dez 2008 11:59

Re: Zwei Versionen über „for“ vergleichen
 
Könnte das nicht so funktionieren (ungetestet)?
Delphi-Quellcode:
Result := false;
i := 0;
while (i < Length(oldVersion)) and not Result do
  begin
    case Sign(newVersion[i] - oldVersion[i]) of
      -1: break;         //newVersion ist älter -> raus hier
       1: Result := true; //newVersion ist neuer
    end;
    inc(i);
  end;

SirThornberry 13. Dez 2008 12:10

Re: Zwei Versionen über &#8222;for&#8220; vergleiche
 
ich würde es so machen:
Delphi-Quellcode:
var
  i: Integer;
  len: Integer;
begin
  i := 0;
  len := length(old_version);
  while (i < len) and (old_version[i] = new_version[i]) do
    inc(i);
  result := (i = len);

DeddyH 13. Dez 2008 12:29

Re: Zwei Versionen über „for“ vergleichen
 
Und was machst Du, wenn die "alte" Version neuer ist?

inherited 13. Dez 2008 12:43

Re: Zwei Versionen über „for“ vergleichen
 
warum packst du die Versionsnummern nicht in einen 32Bit-Int und schaust ob deine Versionsnummer kleiner oder gleich der anderen ist?

DeddyH 13. Dez 2008 12:45

Re: Zwei Versionen über „for“ vergleichen
 
Dann dürfen die einzelnen Array-Elemente nicht größer als 255 sein (wird wohl auch so sein, aber ich wollte mal darauf hinweisen :mrgreen:).

inherited 13. Dez 2008 12:47

Re: Zwei Versionen über „for“ vergleichen
 
Das Programm will ich sehen, das bei Version 255 ist :mrgreen:

SirThornberry 13. Dez 2008 13:20

Re: Zwei Versionen über &#8222;for&#8220; vergleiche
 
ups, hab gedacht es geht nur um unterschiedlichkeit - wieder die hälfte ni gelesen.

Uwe Raabe 13. Dez 2008 13:52

Re: Zwei Versionen über „for“ vergleichen
 
Zitat:

Zitat von DeddyH
Dann dürfen die einzelnen Array-Elemente nicht größer als 255 sein (wird wohl auch so sein, aber ich wollte mal darauf hinweisen :mrgreen:).

Man kann das Ganze auch in einen Int64 packen, dann stehen 4 mal 16 Bit zur Verfügung...

DeddyH 13. Dez 2008 14:06

Re: Zwei Versionen über „for“ vergleichen
 
Naja, letztendlich muss das der TE entscheiden ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:19 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz