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;