Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi 0x80 ist was ? (https://www.delphipraxis.net/40049-0x80-ist.html)

sniper_w 10. Feb 2005 12:38


0x80 ist was ?
 
Wie schreibt man das in Delphi ?

Zitat:

// c / c++ code
....
if (GetKeyState(VK_UP) & 0x80)
....
Mein Vorschlag:
Delphi-Quellcode:
...
 if (GetKeyState(VK_UP)) and (0x80) //<----- Welche Zahl ist das in Dec.sys.
  then
...

Bernhard Geyer 10. Feb 2005 12:40

Re: 0x80 ist was ?
 
Delphi-Quellcode:
if (GetKeyState(VK_UP) and $80)

sniper_w 10. Feb 2005 12:46

Re: 0x80 ist was ?
 
Danke. Überall ist es $0000 mit Hex. Zahlen nur nicht im C ! :evil:

Muetze1 10. Feb 2005 14:03

Re: 0x80 ist was ?
 
Moin!

Zitat:

Zitat von sniper_w
Danke. Überall ist es $0000 mit Hex. Zahlen nur nicht im C ! :evil:

falsche Aussage...

AT&T Assembler: 0x
C/C++: 0x
Borland Assembler: h
Pascal/Delphi: $
uvm.

MfG
Muetze1

Robert Marquardt 10. Feb 2005 14:53

Re: 0x80 ist was ?
 
Na dan sag mal was 08 in K&R C ist :-)
Das wissen heute wirklich nur noch sehr wenige. Es ist legales C!

NicoDE 10. Feb 2005 15:00

Re: 0x80 ist was ?
 
Zitat:

Zitat von sniper_w
Wie schreibt man das in Delphi ?

Ich würde es (solange GetKeyState in der Windows.pas ein Smallint zurück gibt...) so schreiben
Delphi-Quellcode:
if GetKeyState(foo) < 0 then // high-order bit is 1, the key is down

Oxmyx 10. Feb 2005 15:01

Re: 0x80 ist was ?
 
Zitat:

Zitat von Robert Marquardt
Na dan sag mal was 08 in K&R C ist :-)
Das wissen heute wirklich nur noch sehr wenige. Es ist legales C!

08 wäre doch heute wie schon immer eine Oktalkostante, oder? Gab's schon in der Programmiersprache "B".

Robert Marquardt 10. Feb 2005 15:26

Re: 0x80 ist was ?
 
Korrekt, aber der Knackpunkt ist das K&R C 08 und 09 erlaubt was eigentlich 010 und 011 sein muesste.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:41 Uhr.

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