JEDI Codeformatierer

[RUB]

Hallo,

nach längerem Suchen habe ich herausgefunden warum der Codeformatierer bei mir nicht funktioniert, es liegt an den case-Anweisungen. Weiß jemand wie ich das Problem umgehen kann?

Code: Alles auswählen

function MaskeBits(Zahl:Byte):Cardinal;
begin
  case Zahl of
    0:  Result:=%0000000000000000;
    1:  Result:=%0000000000000001;
    2:  Result:=%0000000000000011;
    3:  Result:=%0000000000000111;
    4:  Result:=%0000000000011111;
    5:  Result:=%0000000000111111;
    6:  Result:=%0000000001111111;
    7:  Result:=%0000000011111111;
    8:  Result:=%0000000111111111;
    9:  Result:=%0000001111111111;
    10: Result:=%0000011111111111;
    11: Result:=%0000111111111111;
    12: Result:=%0001111111111111;
    13: Result:=%0011111111111111;
    14: Result:=%0111111111111111;
    15: Result:=%1111111111111111;
  end
end;

und

Code: Alles auswählen

TDwRec = packed record
    case byte of
      0: (Bits: bitpacked array[0..15] of Boolean);
      //1: (HighByte,LowByte: Byte);
      1: (LowByte, HighByte: byte);
      2: (Word: word);
      3: (CharRight, CharLeft: char);
  end;

mit freundlichen Grüßen
Bernd

[m.fuchs]

1.) Was funktioniert denn nicht?

2.) Ist zwar nicht deine Frage, aber welchen Sinn hat denn deine Funktion MaskeBits?

[theo]

Weiß jemand wie ich das Problem umgehen kann?

Einfach erstmal den Formatierer nicht benutzen?
Ansonsten Im Bugtracker melden und / oder das Problem selber reparieren und einen Patch in den Bugtracker posten.

P.S. Es gibt übrigens schon einige Reports die in eine ähnliche Richtung gehen:
http://bugs.freepascal.org/view.php?id=19754" onclick="window.open(this.href);return false;

[schnullerbacke]

Weiß jemand wie ich das Problem umgehen kann?

Einfach erstmal den Formatierer nicht benutzen?
Ansonsten Im Bugtracker melden und / oder das Problem selber reparieren und einen Patch in den Bugtracker posten.

P.S. Es gibt übrigens schon einige Reports die in eine ähnliche Richtung gehen:
http://bugs.freepascal.org/view.php?id=19754" onclick="window.open(this.href);return false;

Seht euch mal die Deklaration von TdwRec genauer an, dass ist ne typisierte Konstante. Da muss normal immer eine gleiche Anzahl von Parametern existieren. Bei 2: ist das aber nicht der Fall.

[Socke]

Seht euch mal die Deklaration von TdwRec genauer an, dass ist ne typisierte Konstante.

Das ist ein Typ; für eine typisierte Konstante fehlt eindeutig ein Konstantenname.

[schnullerbacke]

Seht euch mal die Deklaration von TdwRec genauer an, dass ist ne typisierte Konstante.

Das ist ein Typ; für eine typisierte Konstante fehlt eindeutig ein Konstantenname.

Pardon, im Halbschlaf sollte man keine Weiheiten verbreiten. Varianter Record ist richtig, aber beim Benutzen muss man dann auch aufpassen, das die Wahl mit case auch ein zutreffendes Ziel findet, sonst geht das schief.

[RUB]

Das mit dem Record funktioniert schon. Da ich auf den Daten auf sehr unterschiedliche weise zugreife, mal auf einzelne Bits mal als Char und da habe ich einfach keine Lust mit Zeiger um mich zu schmeißen oder ständig Bits aus und einzumaskieren. Die "absolute"- Anweisung wäre auch eine Alternative.

die Funktion "MaskeBits" liefert einfach eine Bit-Maske zurück um eine Zahl zwischen 1 und 15 auszumaskieren oder welche Bits benötigt werden um eine Zahl zu Speichern.
alternativ sollte auch das funktionieren:
$FFFF shr (15-Zahl)