Bitweises kopieren aus einem String

[angos]

Der folgende Code ist dazu gedacht, teile eines strings auf bitebene kopieren. Zurückgegeben wird der Dezimalwert des kopierten strings.
Beispiel:

Delphi-Quellcode:

procedure TestThatFunction;
begin
  s := '567';
  i := BitCopyToInt(s, 6, 7);
end;

Binärcode zu 5 6 7
00000101 00000110 00000111
die Bitweise Kopie nimmt nun ab der 6. Position 7 Zeichen (rot markiert)
Der Rückgabewert ist in diesem Fall 64 + 16 = 80

Delphi-Quellcode:

uses 
  Math;

Delphi-Quellcode:

// -----------------------------------------------------------------------------
// BitCopyToInt
// Erzeugt eine Bitweise Kopie von String s und gibt den daraus
// resultierenden Dezimalwert zurück
// -----------------------------------------------------------------------------
function BitCopyToInt(s: String; bitStart, bitLength: Integer): Integer;
var
  i: Integer;
  bit: Integer;
const
  bit1 = $01;
  bit2 = $02;
  bit3 = $04;
  bit4 = $08;
  bit5 = $10;
  bit6 = $20;
  bit7 = $40;
  bit8 = $80;
begin
  if ((bitStart + bitLength - 1) > (length(s) * 8)) then
    Result := -1
  else
  begin
    Result := 0;
    for i := bitStart to bitStart + bitLength - 1 do
    begin
      // index
      case i mod 8 of
        1: bit := bit8;
        2: bit := bit7;
        3: bit := bit6;
        4: bit := bit5;
        5: bit := bit4;
        6: bit := bit3;
        7: bit := bit2;
      else
        bit := bit1;
      end;
      Result := Result + IfThen((Ord(s[Trunc((i + 7) / 8)]) and bit) = bit
        , Trunc(Power(2, (bitStart + bitLength - i - 1) )), 0);
    end;
  end;
end;                                                             // BitCopyToInt

[edit=Matze]Dieses Thema reicht nicht ganz aus, um in die Code-Library aufgenommen zu werden. MfG, Matze[/edit]

[DeddyH]

Eine blöde Frage: wozu braucht man das?
Mir fällt auf Anhieb keine Anwendungsmöglichkeit ein, aber wenn ich es mal brauchen sollte, komme ich darauf zurück

[Neutral General]

Zitat von DeddyH:

Eine blöde Frage: wozu braucht man das?
Mir fällt auf Anhieb keine Anwendungsmöglichkeit ein, aber wenn ich es mal brauchen sollte, komme ich darauf zurück

Hehe ich weiß wozu man (ich) das sehr gut gebrauchen kann... Um GIF-Bilddaten zu decodieren ist diese Funktion ganz nützlich... (siehe LZW bei Wiki)

Gruß
Neutral General

[oki]

Hi,

warum nicht mit links/rechts schieben. Dann fällt alles blaue raus.
Wozu man das brauch würde mich aber auch mal interessieren.

Gruß oki

[angos]

Hi,

zum Beispiel hab ich es dafür verwendet um Daten die aus einem Gerät (über Comport) ausgelesen wurden wieder "lesbar" zu machen.

In meinem Besipiel war Datum/Uhrzeit wie folgt in 4 Byte gespeichert:

6 Bits Sekunden, 6 Bits Minuten, 5 Bits Stunden, 5 Bits Tage, 4 Bits Monate, 6 Bits Jahre



Ich nehme an, dass bei diversen Hardwareansteuerungen der Code sehr nützlich sein kann

Gruß

[DeddyH]

Ahja, alles klar.

[marabu]

Hallo Ansgar,

ist jetzt völlig off-topic, aber dein Beispiel mit dem Timestamp der externen Hardware: so sieht ein DOS-Timestamp aus, wenn man ihn um ein Bit nach links schiebt um die Sekundenauflösung von zwei auf eins zu erhöhen.

Delphi-Quellcode:

uses
  DateUtils; // OneSecond

function TimeStampToDateTime(ts: DWORD): TDateTime;
begin
  Result := FileDateToDateTime(ts shr 1) + OneSecond * Ord(Odd(ts));
end;

So oder ähnlich geht das dann vielleicht auch.

Freundliche Grüße

[angos]

Hallo marabu,

das werd ich mir auch nochmal anschauen. danke fürs OT


Gruß