Data zu Treeview hinzufügen ?

[mkinzler]

Delphi-Quellcode:

type
    PMydata = ^TMyData;
    TMyData = Record
        Url: string;
    end;
...
procedure TForm1.Button1Click(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
          oNewNode := treeview1.Items.AddObject(nil, 'Suchmachinen', Nil);
          new(data);
          data.url := 'http://www.google.de';
          treeview1.Items.AddChildObject( oNewNode, 'google', data );
          new(data);
          data.url := 'http://www.yahoo.de';
          treeview1.Items.AddChildObject( oNewNode, 'yahoo', data );
...