Pointer auf Array ?

**eric_draven**

Hallo DPler,

ich empfange über eine Schnittstelle einen String, der nach einem festen Protokoll aufgebaut ist.
Um möglichst schnell und effektiv zu sein benutze ich Pointer, um verschiedene Typen aus diesem String zu holen/darauf zu verzeigern (Byte, Real, etc. -Werte).
Das funktioniert auch einwandfrei; allerdings kommt u.A. auch ein 128bit breites Array von Bits (Boolean) hinzu. Klar könnte ich auch 16 Byte nehmen aber ich möchte, wie im Protokoll auch ein Array of Boolean haben.
Was mache ich falsch ? Es steht nur "Mist", im Array, der Pointer zeigt irgendwohin im Speicher aber nicht auf mein Ziel.
Hier ein Schnipsel, um das zu verdeutlichen :

markieren

Code:

			Type TStatus = Array[1..128] of Boolean;

Var s, s2 : String;

    i : Integer;

    Status : TStatus;

    PStatus : ^TStatus;

    PLength : PByte;

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

    If Status[i] then s2 := s2 + '1'

    Else s2 := s2 + '0';

    If (i mod 8) = 0 then s2 := s2 + #32;

  End;

  ShowMessage(s2);                  //Ergebnis falsch

end;

Pointer auf Array ?

Pointer auf Array ?

Forumregeln