AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Bitweise Operatoren von C++ in Delphi übersetzen
Thema durchsuchen
Ansicht
Themen-Optionen

Bitweise Operatoren von C++ in Delphi übersetzen

Ein Thema von MisterNiceGuy · begonnen am 29. Okt 2009 · letzter Beitrag vom 30. Okt 2009
Antwort Antwort
Benutzerbild von MisterNiceGuy
MisterNiceGuy

Registriert seit: 1. Jul 2003
Ort: Mannheim
919 Beiträge
 
Delphi 7 Personal
 
#1

Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 18:49
Hi, ich sitze gerade an folgender If-Bedingung die ich von C++ in Delphi übersetzen möchte:

Code:
(m_dwUsage & D3DUSAGE_DYNAMIC) ? D3DLOCK_DISCARD : 0
Ich kann das ganze schon folgendermaßen auflösen:

Delphi-Quellcode:
if (m_dwUsage AND D3DUSAGE_DYNAMIC) then
  result := D3DLOCK_DISCARD
else result := 0;
So, jetzt muss ich nurnoch das m_dwUsage AND D3DUSAGE_DYNAMIC verstehen... Weiß jemand wie ich das übersetze?

FYI: m_dwUsage ist vom Typ DWORD.
Jonas
Wenn mich jemand sucht, ich bin im Kühlschrank!

Informationen über das Duale Studium
www.jofre.de
  Mit Zitat antworten Zitat
Apollonius

Registriert seit: 16. Apr 2007
2.325 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 18:51
Einfach <> 0 ergänzen. In C kann man das weglassen.
Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"?
"An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#3

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 18:51
Delphi-Quellcode:
if (m_dwUsage AND D3DUSAGE_DYNAMIC) = D3DUSAGE_DYNAMIC then
  result := D3DLOCK_DISCARD
else result := 0;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von MisterNiceGuy
MisterNiceGuy

Registriert seit: 1. Jul 2003
Ort: Mannheim
919 Beiträge
 
Delphi 7 Personal
 
#4

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 18:52
Echt? Das wär ja wunderbar einfach Danke!
Jonas
Wenn mich jemand sucht, ich bin im Kühlschrank!

Informationen über das Duale Studium
www.jofre.de
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#5

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 19:35
Code:
x = (m_dwUsage & D3DUSAGE_DYNAMIC) ? D3DLOCK_DISCARD : 0;
x := IfThen(m_dwUsage and D3DUSAGE_DYNAMIC <> 0, D3DLOCK_DISCARD, 0);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#6

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 19:39
Zitat von MisterNiceGuy:
Echt? Das wär ja wunderbar einfach Danke!
Welchen Wert haben eigentlich diese Konstanten?
Gibt da eventuell noch 'nen anderen "Trick".
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
schöni

Registriert seit: 23. Jan 2005
Ort: Dresden
445 Beiträge
 
Delphi 7 Personal
 
#7

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 29. Okt 2009, 22:37
Hallo,

Zitat von hinitsu:
Welchen Wert haben eigentlich diese Konstanten?
Gibt da eventuell noch 'nen anderen "Trick".
Das könnte so sein (Prinzip ist wichtig, nicht der wirkliche Wert der Konnstanten):

Delphi-Quellcode:
const
  m_dwUsage = $00080;
  D3DUSAGE_DYNAMIC = $00081;

  //Die und Verknüpfung ergibt das:
  // 01000
  // 01001
  // -----
  // 01000
Damit aber eine Abfrage sinnvoll ist, muss m_dwUsage nicht eine Konstante, sondern eine Variable im Programm sein, die also verschiedene Werte annehmen kann. In meinem Beispiel wäre die Bedingung erfüllt, wenn Bit 3 gesetzt ist.
Damit der Topf nicht explodiert, lässt man es ab und zu mal zischen.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#8

Re: Bitweise Operatoren von C++ in Delphi übersetzen

  Alt 30. Okt 2009, 00:35
jupp, also im Prinzip
VAR and CONST = CONST Fogendes geht nur, wenn CONST nur aus einem Bit besteht
da ist dann ein is_not_zero-TEST meist schneller/kleiner, als ein Integer-CMP
VAR and CONST <> 0 und wenn man übereinstimmende Bitsequenzen hat (1 oder mehrere Bits), dann geht auch sowas
Delphi-Quellcode:
D3DUSAGE_DYNAMIC = $00080;
D3DLOCK_DISCARD = $00800;

//if m_dwUsage and D3DUSAGE_DYNAMIC <> 0 then x := D3DLOCK_DISCARD else x := 0;
x := (m_dwUsage and D3DUSAGE_DYNAMIC) shl 4;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:39 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