Record-Array über Zeiger parsen

[Christian Seehase]

Moin Dennis,

funktioniert doch

Delphi-Quellcode:

type
  PData = ^TData;
  TData = record
    Value: Byte;
    Reference: Pointer;
  end;

procedure TForm1.btn1Click(Sender: TObject);
var
  Data: array of TData;
  Current: PData;
begin
  SetLength(Data,3);
  Data[0].Value := 1;
  Data[1].Value := 2;
  Data[2].Value := 3;
  Data[0].Reference := Pointer(100);
  Data[1].Reference := Pointer(200);
  Data[2].Reference := nil;
  Current:= PData(Data);
  while Current^.Reference <> nil do
  begin
    ShowMessage(IntToStr(Current.Value));
    Inc(Current);
  end;
end;