treeview / datastruktur

type
  TNData = class
    datanode : Integer;
    dataPnode : integer;
  end;
procedure TfrmMain.FormCreate(Sender: TObject);
var
  ndata : tndata;
  nyNode,PNode : ttreenode;
  nyNodeNavn : string;
  NyNodeId: integer;
  NyPnodeId : integer;
  imgId : integer;
  i: integer;

begin
  dsnode.First;
  while not dsnode.Eof  do
  begin
    NyPnodeId := dsnode.FieldByName('pnode').AsInteger;
    nyNodeNavn :=  dsnode.FieldByName('navn').asstring;
    NyNodeId :=  dsnode.FieldByName('nodeid').AsInteger;
    imgId :=  dsnode.FieldByName('artId').AsInteger;

    ndata := TNData.Create;
    TNData(nData).datanode:= NyNodeId;
    TNData(nData).dataPnode := NypNodeId;

    if NyPnodeId = -1 then begin
      // 'ROOT'
      nynode := tv.Items.Add(nil,nyNodeNavn);
      nynode.Data := ndata;
      end
    else begin;
      for i := 0 to tv.Items.Count -1 do begin
        pnode := tv.Items.item[i];
        if tndata(pnode.Data).datanode = nyPnodeId then begin
          nynode := tv.Items.AddChild(Pnode,nyNodeNavn);
          nynode.Data := ndata;
        end;//if
      end;  //for
    end;    //if
    nynode.ImageIndex := imgId;
    nynode.Data := ndata;
    dsNode.Next;
  end;
end;

lukker