Pointer auf Array ?

[eric_draven]

Danke !

[DeddyH]

Vorschlag auf die Schnelle (s muss BTW ein AnsiString sein):

Delphi-Quellcode:

type
  TStatus = Array[1..16] of Byte;

Var s, s2 : AnsiString;
    i, j : Integer;

    Status : TStatus;
    PStatus : ^TStatus;

    PLength : PByte;
    CurrentBit: Byte;
begin
  s := #$00#$00#$00#$00#$08#$04#$02#$01#$00#$00#$00#$00#$08#$04#$02#$01;

  PLength := @s[7];
  ShowMessage(IntToStr(PLength^)); //Ergebnis = 2, stimmt

  PStatus := @s[1];
  Status := pStatus^;

  (*Debugausgabe*)
  s2 := '';
  For i := Low(Status) to High(Status) do
  Begin
    for j := 7 downto 0 do
      begin
        CurrentBit := 1 shl j;
        if (Status[i] and CurrentBit) = CurrentBit then
          s2 := s2 + '1'
        else
          s2 := s2 + '0';
      end;
    if i < High(Status) then
      s2 := s2 + #32;
  End;
  ShowMessage(s2);
end;

[eric_draven]

Nochmals Danke
Hehe, hatte mir fast die gleiche Lösung überlegt:

Code:

  
  For i:=Low(Status) to High(Status) do Begin
    For i2 := 7 downto 0 do
     If (Status[i] AND (1 SHL i2)) <> 0  then s2 := s2 + '1'
     Else s2 := s2 + '0';
    s2 := s2 + #32;
  End;

Ich benutze noch Delphi 2005, bei XE(2) ist ein Zeichen eines Strings dann 2 Byte breit (Unicode), deshalb meinst Du AnsiString benutzen oder ?

Noch eine Frage zum ByteBool, wenn ich mehrere Boolsche Variablen in meinem Programm deklariere, kann Delphi dann durch Compilermagic z.B. für 3 Werte trotzdem nur 1 Byte benutzen oder wird auch dann immer ein Byte Speicher verbraucht ? Heutzutage ist es wohl nicht mehr so wichtig*, auf jedes Byte zu achten aber interessieren würde es mich schon.

*Ich programmiere auch AVRs, da sieht das etwas anders aus

[mkinzler]

Du kannst natürlich mehrere Booleans als Bitfelder speichern

[eric_draven]

Das ist schon klar, das mache ich ja auch, wenn ich bei den 16Byte auf die 128 einzelnen Bits zugreife.
Die Frage ist:
Wenn ich eine Boolsche Variable deklariere braucht die ein Byte (ByteBool).
Wenn ich nun zwei Boolsche Variablen deklariere, brauchen die nun zwei Byte oder ist der Compiler so klever die in ein Byte zu packen ?
Alleine der Pointer auf den Bool dürfte aber unter 32bit 4Byte brauchen.

[mkinzler]

Eine Booleanvariable belegt ein Byte, da dies die kleinste (Speicher-)Einheit ist