Data zu Treeview hinzufügen ?

[Delphiturbo]

den Werb "iterieren" habe ich nie gehört !
wie lautet das in englisch? Vielleicht kann google weiterhelfen

[mkinzler]

Iteration <> Rekursion

[toms]

Zitat von Delphiturbo:

Aber wie können wir nun einen Link für Childern, die in Treeview1 bereits vorhanden sind zuweisen?

Hallo, so kannst du durch die Nodes iterieren:

Delphi-Quellcode:

var
  Node : TTreenode;
begin
   Node := Treeview1.items[0]; // erster Node 
    while Node <> nil do // solange ein Node vorhanden
    begin
      Node.Data := ...  // Dem Node Daten zuweisen
      Node := Node.getNext;  // nächsten Node ermitteln
    end;
 end;

[Delphiturbo]

Ich habe alle Linke für Childern in ListBox1 sortiert gespeichert
ich habe in Treewiew 4 Childern
Google
Yahoo
MSN
GMX
dann habe ich in ListBox1 die Linke gespeichert :
http://google.de
http://yahoo.de
http://msn.de
http://gmx.de

Ich habe den Code so geschrieben :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
Begin
node:=TreeView1.Items.GetFirstNode;
  while node <> nil do
   begin
    if node.level = 1 then // nur Childern
    Node.Data :=  // ich möchte nun den 1. Link vom ListBox1 holen. Und hier bitte ich euch um Hilfe    
    node := node.GetNext
  end;
End;

Dann soll es mit dem Code funktionen :

Delphi-Quellcode:

procedure TForm1.TreeView1DblClick(Sender: TObject);
var  oNewNode    : TTreeNode;
     data: PMyData;
begin
    data := (Sender as TTreeView).Selected.Data;
    if data <> Nil then
    
    Webbrowser1.Navigate(data.url);
end;
end.

[mkinzler]

Node.Data := ListBox.Items[0]; // ich möchte nun den 1. Link vom ListBox1 holen. Und hier bitte ich euch um Hilfe Wie wäre es mal mit der Anwendung der Delphi-Hilfe?

[Delphiturbo]

Zitat von mkinzler:

Node.Data := ListBox.Items[0];

So importieren wir immer die erste Zeile (den Link für google)
Man muss eine i-schleife in Spiel setzen

Delphi-Quellcode:

var node: TTreeNode;
i : Integer;
Begin
node:=TreeView1.Items.GetFirstNode;
  while node <> nil do
   begin
    if node.level = 1 then
    // Showmessage(node.Text);
    for i:= 0 to 3 do
    Showmessage(ListBox1.Items[i]);

     //Node.Data :=  ListBox1.Items[i]
    node := node.GetNext
  end;
End;

[mkinzler]

Zitat von Delphiturbo:

Zitat von mkinzler:

Node.Data := ListBox.Items[0];

So importieren wir immer die erste Zeile (den Link für google)
Man muss eine i-schleife in Spiel setzen

Du wolltest auch den 1. Link haben.

[Delphiturbo]

Wenn ich dem Node Daten vom ListBox1 zuweisen will, ewrscheint
eine Fehlermeldung in diese Zeile

Delphi-Quellcode:

...
Node.Data :=  ListBox1.Items[i]; // Incompatibletypes string and Pointer
node := node.GetNext;

[mkinzler]

Delphi-Quellcode:

new( node);
node.Url := ListBox1.Items[i];
Node.Data := node;

[Nuclear-Ping]

Zitat von mkinzler:

Delphi-Quellcode:

new( node);
node.Url := ListBox1.Items[i];
Node.Data := node;

Nicht lieber so? ^^

Delphi-Quellcode:

new( data);
data.Url := ListBox1.Items[i];
Node.Data := data;