Bit-Schiebereien

[Sir Rufo]

Zitat von Mavarik:

Zitat von p80286:

vergiß es, Sir Rufo hat da was viel besseres.

emm er sprach von schnellem Zugriff... nicht für jedes Bit einen Call...

Der Name GetBits ist schlecht gewählt, denn mit einem Call wird der gesamte Wert ausgelesen.

[Mavarik]

Zitat von Sir Rufo:

Der Name GetBits ist schlecht gewählt, denn mit einem Call wird der gesamte Wert ausgelesen.

OK, trotzdem Rekord Index durch Compiler ist immer noch schneller als ne Property

Mavarik

[Sir Rufo]

Zitat von Mavarik:

Zitat von Sir Rufo:

Der Name GetBits ist schlecht gewählt, denn mit einem Call wird der gesamte Wert ausgelesen.

OK, trotzdem Rekord Index durch Compiler ist immer noch schneller als ne Property

Mavarik

Ja, könnte man auch nehmen, wenn denn dann die Werte Byte-Weise abgegriffen werden könnten. Das geht aber eben nicht.

0	1	2	3	4	5	6	7
00000000	00000010	01000000	00000000	00000000	00000000	00000000	00000000

Wie holt man denn daraus jetzt den Wert 9 ("1001") per Record Index?
Der Wert muss aus den Bits (von links 0-basierend gezählt) 14-17 kommen.

[p80286]

Zitat von Mavarik:

OK, trotzdem Rekord Index durch Compiler ist immer noch schneller als ne Property

Dann nagelst Du die "richtige" Struktur darunter und Du bist fein raus. Immer noch besser als aus 60Bytes einen String mit Nullen und Einsen zu machen, und dann womöglich noch die Indexierung durcheinander zu werfen.

@Kostas
Der Trick bei dem varianten Record ist, daß unter verschiedenen Namen, die gleichen Daten erreichbar sind. (OK ist nicht die reine Lehre)

Delphi-Quellcode:

TDataType = record
     case integer of
       0: (rawData: Array[0..59] of Byte);
       1: (data1  : Array[0..29] of Word;
       3: record Tuep:byte; Lang:byte; Wert1:longint;wert2:byte.....;
       4: record Tip :byte; Long:byte; filler1:byte; wert11:word end; 
              ) 
end;
var
  meinwert:TDataType;

Du kannst jetzt über meinwert.rawData[0] meinwert.Tuep und meinwert.Tip auf das erste Byte zugreifen, und es ist immer der selbe Wert.
Mit der Variante 4 hast Du Zugriff auf RawData[3] und RawData[4], Du mußt nur auf die ByteOrder aufpassen. (Ich kann's mir nicht merken)

Gruß
K-H

[Dejan Vu]

Wie wäre es mit einer kleinen Klasse?

Delphi-Quellcode:

Type
  TBits = Class
  public 
    constructor Create (data : TBytes);
    function GetBits (BitFrom, BitTo : Integer) : TBytes;
  End;

Und 'GetBits' macht nichts anderes, als die Bytes aus data von Index BitsFrom/8-BitsTo/8 zu kopieren und um BitsFrom mod 8 zu shiften (den Überlauf vom folgenden Byte einmaskieren), und vom letzten Byte müssen die Bits (BitsTo mod 8 - BitsFrom mod 8) weggeschnippelt werden.

Irgendwie so jedenfalls. Mit Papier und Stift sind die Shiftoffsets und das letzte Maskieren doch schnell zusammengezählt.

Alternativ (aber saulangsam) überführt man den Byte-Stream in ein Array of Boolean und bei der Abfrage erzeugt man aus dem Bits dann wieder einen Byte-Stream.