Von C nach Pascal Portieren

[michasbaer]

Hallo an alle,
ich stehe vor einem Portierungsproblem,
und brauche Hilfe von jemandem der sich
in C besser auskennt als ich:

In C steht es so:
(byte_1, byte_2 und byte_3 sind als UCHAR definiert)

Code: Alles auswählen

if (byte_& 0x80) byte_2 |=  byte_3;
else
byte_2 &= ~byte_3;

in Pascal (Delphi + Lazarus)
(byte_1,byte_2 und byte_3 sind als byte definiert)

Code: Alles auswählen

if (byte_1 and $80) then byte_2 := (byte_2 or byte_3)
 else
 byte_2 := byte_2 and (not byte_3);

Lehnt Delphi/Lazarus mit "Ausdruckstyp muss BOOLEAN sein" ab.
Kann mir jemand die C-Zeilen richtiger interpretieren ?

Schönen Dank
Fritz

[theo]

Ich blicke nicht ganz durch, aber den Ausdruck kannst du Typecasten, dann kompiliert das:

if Boolean(byte_1 and $80) ..

Also <> 0, nehm ich an.

[Bora4d]

Versuch mal das:
if (byte_1 and $80)<>0 then ...

Bei C ist alles was nicht 0 ist TRUE.

[Socke]

Bei If-Abfragen, Schleifen und so weiter musst du immer einen boolschen Wahrheitswert als Ausdruck ermitteln. In Pascal kann das nur der Typ Boolean sein (mit den Werten True und False, die den Werten -1 beziehungsweise 0 entsprechen); C ist da ein wenig nachlässiger und wertet den Zahlwert 0 als False und alles andere als True. Daher musst du in Pascal einen Vergleichsoperator verwenden, in C wäre das nur guter Stil gewesen:

Code: Alles auswählen

var
  byte_1, byte_2, byte_3: Byte;
begin
  if (byte_1 and $80) = $80 then
    byte_2 := (byte_2 or byte_3)
  else
    byte_2 := byte_2 and (not byte_3);

theos Vorschlag mit Typecasting wäre auch möglich, wobei dann Bytebool und nicht Boolean der richtigere Typ wäre (Bytebool verhält sich bezüglich der Zahlwert-Repräsentation wie C). Vermutlich wäre diese Variante sogar noch ein bis zwei Rechenoperationen (Vergleich mit $80) schneller.

[carli]

VORSICHT

"-" ist "-" in Pascal und nicht "not". "not" wäre "~" in C.

[marcov]

Code: Alles auswählen

if bytebool(byte_1 and $80) then
    ...