Delphi-PRAXiS
Seite 3 von 4     123 4      

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)

inherited 14. Dez 2008 12:59

Re: Zwei Versionen über „for“ vergleichen
 
Einfach so:
Delphi-Quellcode:
IsNewVersion := NewVersion.AsCardinal > OldVersion.AsCardinal;

himitsu 14. Dez 2008 13:36

Re: Zwei Versionen über „for“ vergleichen
 
@inherited: sicher, daß du das so machst?

wir leben in einer BigEndian-Umgebung

Delphi-Quellcode:
2: (Build: Byte; Release: Byte; Minor: Byte; Major: Byte);
also der größte Wert zuletzt und hier ist Major das Größte

Hawkeye219 14. Dez 2008 13:57

Re: Zwei Versionen über „for“ vergleichen
 
Hallo Fabian,

ich habe das Gefühl, du liest die Antworten auf deine Fragen nicht sorgfältig genug: klick.

Da du mit Turbo Delphi arbeitest, solltest du noch die Ergänzung von himitsu zu Beginn des Beitrags #16 berücksichtigen.

@himitsu
richtige Idee - falsche Umgebung ;-)

Gruß Hawkeye

inherited 14. Dez 2008 14:02

Re: Zwei Versionen über „for“ vergleichen
 
Mein Dual-Corchen sagt, dass er LittleEndian ist ;)
Aber du hast recht, da ich Plattformunabhängig arbeite, sollte das in Compiler-Schalter.

himitsu 14. Dez 2008 15:13

Re: Zwei Versionen über „for“ vergleichen
 
falsche Umgebung?
Delphi/Windows ist doch BigEndian :gruebel:

ok, da inherited wohl in Linux? arbeitet, könnte es bei ihm zutreffen :stupid:


wie konnte man auch nur LittleEndian erfinden ... für TypeCasts ist BigEndian doch viel praktischer ^^

BUG 14. Dez 2008 15:25

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

Zitat von himitsu
falsche Umgebung?
Delphi/Windows ist doch BigEndian :gruebel:

:shock: Bist du sonst mit Java unterwegs? Ansonsten wirst du bei PCs AFAIK nur LittleEndian finden!
http://de.wikipedia.org/wiki/Endianness#Little

MfG,
Bug

himitsu 14. Dez 2008 16:07

Re: Zwei Versionen über „for“ vergleichen
 
Delphi-Quellcode:
var t: record
  case integer of
    0: (B1, B2, B3, B4: Byte);
    1: (L: LongWord);
end;

v.L := $12345678;
Edit1.Text := Format('$12345678 = L:$%x = B1:$%x B2:$%x B3:$%x B4:$%x',
  [V.L, V.B1, V.B2, V.B3, V.B4]);
Code:
$12345678 = L:$12345678 = B1:$78 B2:$56 B3:$34 B4:$12
letzes Byte ist das Höchstwertige

die Notation im Quelltext ist zwar LittleEndian, aber im Speicher ist es BigEndian


kann sein, das es auf Byteebene, also bei den einzelnen Bits anders aussieht und es dort wirklich LittleEndian ist, aber das läßt sich nicht so leicht prüfen.

Apollonius 14. Dez 2008 16:25

Re: Zwei Versionen über „for“ vergleichen
 
Himitsu, Little Endian heißt, dass das niederwertigste Byte an der niedrigsten Adresse liegt, und genau das ist hier der Fall.

xZise 14. Dez 2008 16:51

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

Zitat von Hawkeye219
Hallo Fabian,

ich habe das Gefühl, du liest die Antworten auf deine Fragen nicht sorgfältig genug: klick.

Tut mir Leid das ich deine Lösung ignoriert habe, aber eigentlich wollte ich gucken, was für Lösungen zu Tage treten, die keine solche Beschränkungen haben, wobei 16 bit natürlich viel Raum bietet. Ich denke dann werde ich es wohl doch so machen.

Zitat:

Zitat von Hawkeye219
Da du mit Turbo Delphi arbeitest, solltest du noch die Ergänzung von himitsu zu Beginn des Beitrags #16 berücksichtigen.

Und welchen meinst du? Dass der Vergleichsoperator ohne dem Gleichheitszeichen vorhanden sein muss?

MfG
xZise

himitsu 14. Dez 2008 17:13

Re: Zwei Versionen über „for“ vergleichen
 
wohl doch zu wenig geschlafen :wall:

Big-Endian > Großes Ende > und irgendwie war ih grad, laut der Übersetzung, der irrtümlichen Meinung das große zu letzt, also an höchster Stelle

na Gut, dann bleibt dieses aber dennoch in Windows so richtiger (Major als Letztes und nicht als Erstes)
Delphi-Quellcode:
2: (Build: Byte; Release: Byte; Minor: Byte; Major: Byte);


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:02 Uhr.
Seite 3 von 4     123 4      

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