Data zu Treeview hinzufügen ?

[Delphiturbo]

Zitat von alzaimar:

Du hast zwei Zeilen vertauscht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
...
    for i:= 0 to 3 do
//    data.Url := ListBox1.Items[i];
//    new( data);
    new( data);                    // ERST ALLOZIIEREN
    data.Url := ListBox1.Items[i]; // DANN VERWENDE
...

Delphi-Quellcode:

new( data);      
data.Url := ListBox1.Items[i]; // das Problem kommt hier (sehe unten)
Node.Data := data;
node := node.GetNext;

[Warning] Unit1.pas(44): FOR-Loop variable 'I' may be undefined after loop
[Warning] Unit1.pas(48): Variable 'I' might not have been initialized
[Warning] Unit1.pas(48): Variable 'data' might not have been initialized