For i :=0 to 3 do !

Question

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;

h60 · Answer

Deplace ton 
begin
après le for

JulioDelphi · Answer

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;

Delphiturbo · Answer

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

florenth · Answer

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 !

cs_cantador · Answer

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

florenth · Answer

Merci à toi pour ce don !

cs_cantador · Answer

de nada florenth..

cantador

For i :=0 to 3 do !

7 réponses

Votre réponse