Salut

ou puis je ajouter und autre (begin, End) dans le Code ?

procedure TForm1.FormCreate(Sender: TObject);
var node: TTreeNode;
I: Integer;
data: PMyData;
Begin
  node:=TreeView1.Items.GetFirstNode;
  while node <> nil do
   if node.level = 1 then
    begin
    for i:= 0 to 3 do
    new( data);
    data.Url := ListBox1.Items[i];
    Node.Data := data;
    node := node.GetNext;

  end;

Deplace ton
begin
après le for

procedure TForm1.FormCreate(Sender: TObject);
var
 node: TTreeNode;
 I: Integer;
 data: PMyData;
Begin
 node:=TreeView1.Items.GetFirstNode;
 while Node <> nil do
  if Node.level = 1 then
   for i:= 0 to 3 do
    begin
     new( data);
     data.Url := ListBox1.Items[i];
     Node.Data := data;
     Node := Node.GetNext;
    end;
End;

Salut

mais il y a un Problem dans [while Node <> nil do]
le program ne peut pas demarer !!!

c'est ça d'indenter le code sans ajouter de begin...end !!!
Je pense que tu voulais faire ça :

procedure TForm1.FormCreate(Sender: TObject);
var
  Node: TTreeNode;
  I: Integer;
  Data: PMyData;
begin
  Node := TreeView1.Items.GetFirstNode;
  while Node <> nil do
  begin
    if Node.Level = 1 then
    for I := 0 to 3 do
    begin
      New(Data);
      Data^.Url := ListBox1.Items[I];
      Node.Data := Data;
    end;
    Node := Node.GetNext;
  end;
end;

Avec une bonne convention d'écriture, on évite des erreurs "à la con".
Ici, tu n'allais au node suivant que s'il sa propriété Level = 1.
Autrement, tu entrais dans une boucle infinie !
Logique que ton programme ne démarrait pas !

Bonsoir Delphiturbo ,

Quelle est la valeur de Node sur le while au démarrage ?
merci de mettre le code complet et
donner STP ta version de delphi.

cantador

Salut Flo..tu as droit un brin de muguet..

cantador

Merci à toi pour ce don !

de nada florenth..

cantador