Thema: Delphi Pointer auf Array ?

Einzelnen Beitrag anzeigen

eric_draven

Registriert seit: 26. Jul 2007
15 Beiträge
 
#1

Pointer auf Array ?

  Alt 10. Okt 2011, 14:14
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 :

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;

Geändert von eric_draven (10. Okt 2011 um 14:19 Uhr)
  Mit Zitat antworten Zitat