Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Bit-Schiebereien (https://www.delphipraxis.net/180297-bit-schiebereien.html)

Sir Rufo 9. Mai 2014 11:15

AW: Bit-Schiebereien
 
Mit der Typisierung und der Länge kann man schon eine Factory aufbauen, die dann aus einem Stream entsprechende Instanzen erzeugt.

Das Grundproblem wird dadurch aber nicht gelöst.

Wie wäre es mit so einer Lösung
http://stackoverflow.com/questions/2...delphi-records

Würde ich in deinem Fall aber eher als Klasse aufbauen, das Prinzip ist aber gleich

p80286 9. Mai 2014 11:15

AW: Bit-Schiebereien
 
vergiß es, Sir Rufo hat da was viel besseres.

Gruß
K-H

Kostas 9. Mai 2014 11:31

AW: Bit-Schiebereien
 
Hallo Zusammen,

den Record habe ich noch nicht verstanden.
In rawData in mein Paket.
Wie habt ihr die Verarbeitung gedacht?
Wie gesagt, eine Nutzinformation kann sich von einem Bit bis hin zu mehrere Bytes ausbreiten.
Was ich habe ist immer nur der Index für Start und Ende einer Nurtinformation innerhalb eines Paketes in rawData.
Ist die binäre Interpretation von rawData und dann einfach über den Index bequem zugreifen oder doch
berechnen in welchem Byte der Anfang und das Ende der Nurtinformation steckt, die Bytes herausziehen,
die Bits aus dem Anfang-Byte extrahieren, die Bytes mitten drin dazu packen, die Bits vom letzten Byte extrahieren
und dazupacken.

Kostas 9. Mai 2014 11:32

AW: Bit-Schiebereien
 
Zitat:

Zitat von p80286 (Beitrag 1258401)
vergiß es, Sir Rufo hat da was viel besseres.

Gruß
K-H

Die Veriante muss ich noch durchgehen...

Mavarik 9. Mai 2014 11:53

AW: Bit-Schiebereien
 
Zitat:

Zitat von p80286 (Beitrag 1258401)
vergiß es, Sir Rufo hat da was viel besseres.

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

Sir Rufo 9. Mai 2014 11:55

AW: Bit-Schiebereien
 
Zitat:

Zitat von Mavarik (Beitrag 1258408)
Zitat:

Zitat von p80286 (Beitrag 1258401)
vergiß es, Sir Rufo hat da was viel besseres.

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

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

Mavarik 9. Mai 2014 11:56

AW: Bit-Schiebereien
 
Nimm einfach einen Varianten Record... Da kopierst Du Dein Status Byte an die richtige Stelle und hast direkten Zugriff auf alle Bit-Kombinationen...

Mavarik

[OT für alte Hasen]
PS.: Boh... Warum lassen uns die Kiddies hier immer rum rätzeln, anstatt direkt mal die Struktur zu posten...
So könnte man die meisten Fragen in einer Antwort beantworten...
[/OT]

Mavarik 9. Mai 2014 11:58

AW: Bit-Schiebereien
 
Zitat:

Zitat von Sir Rufo (Beitrag 1258409)
Der Name
Delphi-Quellcode:
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 9. Mai 2014 12:21

AW: Bit-Schiebereien
 
Zitat:

Zitat von Mavarik (Beitrag 1258412)
Zitat:

Zitat von Sir Rufo (Beitrag 1258409)
Der Name
Delphi-Quellcode:
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.
01234567
0000000000000010010000000000000000000000000000000000000000000000
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 9. Mai 2014 12:31

AW: Bit-Schiebereien
 
Zitat:

Zitat von Mavarik (Beitrag 1258412)
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:27 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz