Pointer of Record --> Record konvertieren

[Zacherl]

So, ich habe folgenden Record:

Delphi-Quellcode:

type
  PCatData = ^TCatData;
  TCatData = record
    Caption: string;
    ImageIndex: integer;
    SubCats: array of PCatData;
  end;

und folgende Funktion, die sich selbst rekursiv wieder aufruft:

Delphi-Quellcode:

procedure AddNodes(Root: PVirtualNode; Data: PCatData);
var
  i: integer;
  NodeData: PNodeData;
  NewNode: PVirtualNode;
begin
  with frmInteractive do
  begin
    NewNode := CatList.AddChild(Root);
    NodeData := CatList.GetNodeData(NewNode);
    NodeData.Caption := Data.Caption;
    NodeData.ImageIndex := Data.ImageIndex;
    NodeData.Panel := nil; // hinterher ändern
    for i := low(Data.SubCats) to high(Data.SubCats) do
    begin
      AddNodes(NewNode, Data.SubCats[i]);
    end;
  end;
end;

Starte ich die Rekursion erhalte ich allerdings eine Zugriffsverletzung, die vermutlich daher stammt, dass ich PCatData nicht einfach wie TCatData behandeln kann.

Kann da jemand helfen?

[Daniel G]

Geht's so?

Delphi-Quellcode:

procedure AddNodes(Root: PVirtualNode; Data: PCatData);
var
  i: integer;
  NodeData: PNodeData;
  NewNode: PVirtualNode;
begin
  with frmInteractive do
  begin
    NewNode := CatList.AddChild(Root);
    NodeData := CatList.GetNodeData(NewNode);
    NodeData.Caption := Data.Caption;
    NodeData.ImageIndex := Data.ImageIndex;
    NodeData.Panel := nil; // hinterher ändern
    for i := low(Data.SubCats^) to high(Data.SubCats^) do
    begin
      AddNodes(NewNode, Data.SubCats^[i]);
    end;
  end;

[Zacherl]

Bringt leider auch nichts .. aber wenn, dann müsste es auch Data^ heißen, oder?
Weil Data ist ja auch vom Typ PNodeData ..

[xZise]

So ähnlich (hatte auch einen Recordpointer übergeben) hatte ich das gemacht:

Delphi-Quellcode:

procedure AddNodes(Root: PVirtualNode; Data: PCatData);
var
  i: integer;
  NodeData: PNodeData;
  NewNode: PVirtualNode;
begin
  with frmInteractive do
  begin
    NewNode := CatList.AddChild(Root);
    NodeData := CatList.GetNodeData(NewNode);
    NodeData.Caption := Data^.Caption;
    NodeData.ImageIndex := Data^.ImageIndex;
    NodeData.Panel := nil; // hinterher ändern
    for i := low(Data^.SubCats^) to high(Data^.SubCats^) do
    begin
      AddNodes(NewNode, Data^.SubCats^[i]);
    end;
  end;
end;

Aber ich weis nicht, wie das mit dem "PVirtualNode" is...

[edit]OOPs... Pointeralarm ^^ Hatte glatt die SubCats übersehen xD[/edit]

[Daniel G]

Zitat von Florian Bernd:

aber wenn, dann müsste es auch Data^ heißen, oder?

Ja, natürlich...

Dann hilft das sicher auch nicht, oder?

Delphi-Quellcode:

procedure AddNodes(Root: PVirtualNode; Data: PCatData);
var
  i: integer;
  NodeData: PNodeData;
  NewNode: PVirtualNode;
begin
  with frmInteractive do
  begin
    NewNode := CatList.AddChild(Root);
    NodeData := CatList.GetNodeData(NewNode);
    NodeData.Caption := Data^.Caption;
    NodeData.ImageIndex := Data^.ImageIndex;
    NodeData.Panel := nil; // hinterher ändern
    for i := low(Data^.SubCats) to high(Data^.SubCats) do
    begin
      AddNodes(NewNode, Data^.SubCats[i]);
    end;
  end;

Zitat von Florian Bernd:

Weil Data ist ja auch vom Typ PNodeData ..

Stümmt nicht.

//Edit: Der xZise war zu schnell...

Zitat:

[edit]OOPs... Pointeralarm ^^ Hatte glatt die SubCats übersehen xD[/edit]

Die Funktion erwartet aber einen Pointer...

[Zacherl]

So, mit eurer Hilfe und mit einem vergessenen New() funktioniert es nun.

Vielen Dank