C++ --> Simpel / aber wie in Delphi?

Andreas Weller · Hält's aus hier Beiträge: 2

Also C kann ich eigentlich recht passabel muss aber jetzt etwas in Delphi implementieren. Dazu folgende Fragen:

Wie mache ich folgendes in Delphi:

1.)
a = a >> 1; (Shifte alle Bits in a nach rechts)

2.)
if ((a & 1) == 1) (Wenn letztes Bit von A gesetzt (Binäres UND), dann...)

Vielen Dank!

Gruß,
Andreas Weller

Moderiert von DeCodeGuru: Topic verschoben

AndyB · Beiträge: 1173 Erhaltene Danke: 14 RAD Studio XE2

Andreas Weller hat folgendes geschrieben:

Wie mache ich folgendes in Delphi:

Eigentlich genau so, nur dass eben die Symbole durch Wörter ersetzt werden müssen.

Zitat:

a = a >> 1;

Wird zu:

markieren

Delphi-Quelltext

1:	a := a shl 1; // für "<<" ist es "shr"

Zitat:

if ((a & 1) == 1)

Wird zu:

markieren

Delphi-Quelltext

1:	if (a and 1) = 1 then

Wobei hier die Klammerung wichtig ist. Ein AND/OR bindet mehr als ein "=". Deswegen könnte man das auch so schreiben:

markieren

Delphi-Quelltext

1:	if a and 1 = 1 then

_________________
Ist Zeit wirklich Geld?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme