[C->Delphi] struct { ULONG a:2; }

[Win32.API]

Hallo,

ist es möglich, soetwas

Code:

struct {
ULONG a:2;
ULONG b:1;
ULONG c:6;
ULONG d:2;
}test;

In Delphi zu deklarieren?

Gruß,
Win32.API

[SirThornberry]

ja. eine Struct ist ein record und ein ULONG wird ein unsigned Long sein also ein Cardinal
Edit: ups, ich seh grad das es sich um ein Bitfeld handelt - ich hatte die Doppelpunkte übersehen. Soweit mir bekannt ist das in Delphi nicht möglich. Das bleibt den Systemnahen Programmiersprachen zumeist vorbehalten.

[SirTwist]

Ich weiß nicht, was Delphi daraus machen würde, abe ich meine mich an meinen lang zurückliegenden Info-LK erinnern zu können, da gab es sowas wie "packed array of Boolean". Gibts das noch? Wenn ja, könnte das das gewüsnchte sein.

Gruß,
SirTwist

[himitsu]

Zitat von SirTwist:

da gab es sowas wie "packed array of Boolean". Gibts das noch?

Boolean ist ein Byte (auch wenn es einen Bitwert darstellen soll)

Am Nähesten kommt dann wohl (da hier mehrere Bist in einem Feld vorkommen) eine Variante mit Masken (den Konstanten im Beispiel).

Delphi-Quellcode:

type  TTest = Cardinal;

const aMask = $0003;  // b0000000000000011
      bMask = $0004;  // b0000000000000100
      cMask = $01F8;  // b0000000111111000
      dMask = $0600;  // b0000011000000000

var   x: TTest;
      a, b, c, d: Cardinal;

a := x and aMask;
b := (x and bMask) shr 2;
c := (x and cMask) shr 3;
d := (x and dMask) shr 9;

Wenn alle Felder je nur ein Bit groß gewesen wären, dann hätte man auch ein SET (Bitfeld) nehmen können

[alzaimar]

NB:
Mit einem "Packed Record" ging das in Pascal früher:

Delphi-Quellcode:

test = packed Record
  a : 0..3;
  b : 0..1;
  c : 0..64;
  d : 0..3;
  end;

Wie gesagt: Früher.