Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - C++ --> Simpel / aber wie in Delphi?


Andreas Weller - Mo 26.01.04 01:04
Titel: C++ --> Simpel / aber wie in Delphi?
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 user profile iconDeCodeGuru: Topic verschoben


AndyB - Mo 26.01.04 01:32
Titel: Re: C++ --> Simpel / aber wie in Delphi?
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:

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



Zitat:
if ((a & 1) == 1)

Wird zu:

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:

Delphi-Quelltext
1:
if a and 1 = 1 then