begin process at 2010 02 10 07:27:19
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Algorithme

 > 

Autre

 > 

For i :=0 to 3 do !


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

For i :=0 to 3 do !

jeudi 1 mai 2008 à 13:52:57 | For i :=0 to 3 do !

Delphiturbo

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;

jeudi 1 mai 2008 à 13:54:38 | Re : For i :=0 to 3 do !

H60

Deplace ton
begin
après le for
jeudi 1 mai 2008 à 14:11:15 | Re : For i :=0 to 3 do !

JulioDelphi

Membre Club Administrateur CodeS-SourceS
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;
jeudi 1 mai 2008 à 15:56:02 | Re : For i :=0 to 3 do !

Delphiturbo

Salut

mais il y a un Problem dans [while Node <> nil do]
le program ne peut pas demarer !!!
jeudi 1 mai 2008 à 18:28:28 | Re : For i :=0 to 3 do !

florenth

Membre Club
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 !
jeudi 1 mai 2008 à 18:53:07 | Re : For i :=0 to 3 do !

cantador

Membre Club

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

jeudi 1 mai 2008 à 18:56:21 | Re : For i :=0 to 3 do !

cantador

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

cantador
jeudi 1 mai 2008 à 20:16:10 | Re : For i :=0 to 3 do !

florenth

Membre Club
Merci à toi pour ce don !
jeudi 1 mai 2008 à 21:33:05 | Re : For i :=0 to 3 do !

cantador

Membre Club
de nada florenth..

cantador


Cette discussion est classée dans : data, do, to, for, node


Répondre à ce message

Sujets en rapport avec ce message

Tchart Series [ par ryadus ] Si il y a par exemple 30 series,le probléme est que je ne sais pas comment utiliser for i:=1 to 30 do begin TLineSeries(FindComponent('series'+intt pus capable [ par Le Néophyte ] Salut j'essaie de faire un "minable" de petit programme, qui lorsqu'on pèse sur exécuter ça fera apparaître à l'écran (fenêtre dos)les nombres premier garder plusieurs images en memoire [ par valkyrie ] Bonjourj aimerais garder en memoire plusieurs images en meme temps du genrej ai une fenetre avec 6 boutons d opendialogje rentre le nom de l image dan TChart [ par yannba ] J'utilise un graphique avec une base de données :procedure CalculGraphique;var i,j:integer;    donnees : array [0..1000] of real;begin    With Form5.C exo sur les tableau pour les debutents [ par aom2009 ] ce programme c'est pour s'exercer sur les tableaux ecrit par aom2009 program tab_de_2dimension; uses crt; {itroduction Treeview-Link !!!!!!!!! [ par Delphiturbo ] Salut :)j ai un petit probleme avec le LINK de Children de Treeviewci je click sur le Child 1 oubien Child2 oubien Child3 Child en Treeview Result est Casting de TList [ par Nicolas___ ] Bonjour , Bon j'ai d'abord une premiere qestion : En delphi , est ce que TList est l'equivalent de Vector en Java (pour ceux qui connaissent ) c'est à How to count by programm whole lines belong to Chappter 1,2,3,4 etc [ par kkasiekk ] Hi Friends I am looking for solution for my programm ... Hope there is someone to help me with [^^happy13] As about my problem: I have to redaging my boucles iteratives imbriquées [ par gaston35 ] vari,j:integer;beginfor i:=4 to 7 do    for j:=2 to 4 do       if itableau[2,j] then ...........Pourquoi, lorsque  je vérifie, en plaçant un point d'


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,530 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales