Hallo,

ich habe folgende Procedure, die mir einen Teilbaum rekursiv kopieren und einfügen soll. Macht Sie aber nicht. Es wird nämlich alles an den targetNode gehängt und nach 10h programmieren kann ich nicht mehr denken . Hat jemand einen Tip?:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tlft.ReadSubnodes(const inNode, targetNode : TTreeNode; childNode : boolean = false);
begin
  if assigned(inNode) then
  begin
    if childNode then
      assignmentsTree.Items.AddChild(targetNode, inNode.Text)
    else
      assignmentsTree.Items.Add(targetNode, inNode.Text);
    ReadSubnodes(inNode.GetFirstChild,targetNode,true);
    ReadSubnodes(inNode.getNextSibling,targetNode);
  end;
end;

Danke

Ausgeschlafen geht das wirklich besser

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tlft.ReadWriteSubnodes(inNode, targetNode : TTreeNode; active : boolean = false);
var
  newNode : TTreeNode;
begin
  while inNode <> nil do
  begin
    if inNode.HasChildren then
    begin
      newNode := assignmentsTree.Items.AddChild(targetNode,inNode.getFirstChild.Text);
      ReadSubnodes(inNode.getFirstChild,newNode,true);
    end;
    if active then
    begin
      inNode := inNode.getNextSibling;
      if inNode <> nil then
      begin
        assignmentsTree.Items.Add(targetNode,inNode.Text);
      end;
    end
      else inNode := nil;
  end;
end;