Delphi-PRAXiS - Delphi Letzten 2 Bytes "löschen"

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Letzten 2 Bytes "löschen" (https://www.delphipraxis.net/22517-letzten-2-bytes-loeschen.html)

SleepyMaster

18. Mai 2004 20:07

Letzten 2 Bytes "löschen"

Hi ihrs!

Wie ist es am einfachsten möglich z.B.: bei einem Longint die letzten zwei bytes auf 0 zu setzen?

Als Beispiel:

aus $87AF82B2
soll $87AF8200 werden

und

aus $AAAAAAAA
soll $AAAAAA00 werden

und

aus $873A9B13
soll $873A9B00 werden...

ich glaube ihr wisst was ich meine! :mrgreen:

Vielen Dank schon mal!

NicoDE

18. Mai 2004 20:09

Re: Letzten 2 Bytes "löschen"

Delphi-Quellcode:

Foo = Bar and $FFFFFF00;

oder

Delphi-Quellcode:

Foo = Bar and not $FF;

ps: das sind übrigens nicht die letzten beiden Bytes, sondern das niederwertigste Byte...

SleepyMaster

18. Mai 2004 20:10

Re: Letzten 2 Bytes "löschen"

Klar!!! Danke!

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:31 Uhr.