Pointer auf Array ?

[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;