boucle imbriquée probRésolu

Question

bonjour a tous voila il y a un petit truc que je comprend pas pourtant je pense etre logique je vous explique 

j'ai un tableau une stringgrid ou une dbgrid ok
et je doit mettre les lignes dans un fichier texte 
donc logiquement il me faut une 

1) boucle pour aller de la ligne 1 a X avec un compteur qui va de 1 a X qui permet de prendre les cellule comme variable en ce deplacant dans le tableau
tant que je ne suis pas arrive au maximum de ligne je boucle

2) il me faut une boucle imbriqu&#233;e dans la premi&#233;re qui me permettra de parcourire pour chaque ligne tout le fichier
en veriffiant si tel valeur de la cellure est egale a un champ de record si oui il modifie la quantite
le probleme sa fonctionne une fois puis il ne rentre plus dans ma boucle .

code---------code

 recpos : integer;        // variable pour connaitre la position d'un record
 strcptgrid2 : integer;     // variable pour ce deplacer dans la grid2 pour modifier le stock
  buffercal : integer; // variable temporaire pour effecturer des calcul


 


 


showmessage('entr&#233;e dans la mise a jour du stock');
 // retirer les articles qui sont vendu


 if FileExists('L:\Gestion-stock\data-fic\StockLL.dat') then
  begin



  assignFile(Fichier,'L:\Gestion-stock\data-fic\StockLL.dat');
  reset(fichier);
  // strcpt variable qui va parcourrir le tableau permettant
  // de changer les variables


   for strcptgrid2:=1 to (stringgrid2.RowCount) do
     begin


      // le while va parcourir tout le fichier de a a z en effectuant le  test
      while (not eof(fichier)) do
      begin
        // strcpt variable qui va parcourrir le tableau permettant
        // de changer les variables
        read(fichier,dencode);
        if dencode.serie=stringgrid2.Cells[1,strcptgrid2] {and (dencode.emplacement=stringgrid2.Cells[4,strcptgrid2]) } then
          begin
            showmessage('passage dans la boucle while valeur '+inttostr(strcptgrid2));
            recpos:=filepos(fichier);  // si teste ok alors prendre la position du pointeur
            seek(fichier,recpos-1);     // placement du pointeur sur le record a modifier
            buffercal:=strtoint(dencode.qt)-strtoint(stringgrid2.Cells[5,strcptgrid2]);
            // Remplissage du buffer
             //dencode.qt:=inttostr(buffercal);
             dencode.serie:=stringgrid2.Cells[1,strcptgrid2];   //  nous allons tester cet valeur avec
             dencode.description:=stringgrid2.Cells[2,strcptgrid2];
             dencode.taille:=stringgrid2.Cells[3,strcptgrid2];
             dencode.emplacement:=stringgrid2.Cells[4,strcptgrid2];   // l'emplacement comme cela si il y a plusieur emplacement avec le meme code
             dencode.prix:=stringgrid2.Cells[6,strcptgrid2];
             dencode.date:=dencode.date;
             write(fichier,dencode);
          end;


      end;


   end;
      showmessage('numeraux de serie article non trouver');
 end;
 closefile(fichier);

Winlin

jmp77 · Accepted Answer

Hello,



C'est normal ta boucle while ne s'effectue qu'une seule fois car while
(not eof(fichier)) s'arrete &#224; la fin du fichier. Donc tu dois
repositionner le curseur au debut du fichier avant de rentre dans la
boucle while afin de pouvoir le relire. Pour cela utilise la propri&#233;t&#233;
seek dont voici l'extrait de l'aide delphi :




D&#233;place la position en cours dans un fichier vers le composant sp&#233;cifi&#233;. 



Unit&#233;



System



Cat&#233;gorie



routines d'entr&#233;es/sorties



procedure Seek(var F; N: Longint);



Description



Utilisez Seek pour d&#233;placer le curseur &#224; une position sp&#233;cifi&#233;e dans
des fichiers ouverts typ&#233;s ou non typ&#233;s. F se d&#233;place vers le num&#233;ro de
composant N, dans lequel le premier composant d'un fichier porte le
num&#233;ro 0.



Dans la syntaxe ci-dessus, F est une variable fichier typ&#233;e ou non
typ&#233;e Le fichier sp&#233;cifi&#233; par F doit &#234;tre ouvert. N est une expression
de type Longint.



Pour agrandir un fichier, vous pouvez rechercher le composant qui suit
imm&#233;diatement celui du dernier composant ; autrement dit,
l'instruction Seek(F, FileSize(F)) d&#233;place la position du curseur en
fin de fichier.



Remarque :    {$I+} vous permet de g&#233;rer les
erreurs d'ex&#233;cution &#224; l'aide des exceptions. Si vous utilisez {$I-},
vous devez faire appel &#224; IOResult afin de d&#233;tecter les erreurs d'E/S.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

WinLin · Answer

Ok franchement j'aurais encore pu chercher longtemps lol j'avais vraiment pas vu cela  merci c'est sympas 

je suis un cretin ;) franchement merci jmp77
c'est vraiment gentil de ta part merci encore

prochaine fois je ferai la meme chose mais avec interbase
et plus de fichier texte
mais bon on me la  demander comme cela je fait ce que l'on me dit
car ce que je fait va devoir tourner sous linux et j'espere pouvoir le faire tourner avec kylix 

bref sa fonctionne j'ai encore une petite erreur mais mon stock ce decompte bien c'est parfait merci encore

WinLin · Answer

for strcptgrid2:=1 to (stringgrid2.RowCount) do
     begin


      // le while va parcourir tout le fichier de a a z en effectuant le  test
      while (not eof(fichier)) do
      begin
        // strcpt variable qui va parcourrir le tableau permettant
        // de changer les variables
        read(fichier,dencode);
        if dencode.serie=stringgrid2.Cells[1,strcptgrid2] {and (dencode.emplacement=stringgrid2.Cells[4,strcptgrid2]) } then
          begin
            showmessage('passage dans la boucle while valeur '+inttostr(strcptgrid2));
            recpos:=filepos(fichier);  // si teste ok alors prendre la position du pointeur
            seek(fichier,recpos-1);     // placement du pointeur sur le record a modifier
            buffercal:=strtoint(dencode.qt)-strtoint(stringgrid2.Cells[5,strcptgrid2]);
            // Remplissage du buffer
             dencode.qt:=inttostr(buffercal);
             dencode.serie:=stringgrid2.Cells[1,strcptgrid2];   //  nous allons tester cet valeur avec
             dencode.description:=stringgrid2.Cells[2,strcptgrid2];
             dencode.taille:=stringgrid2.Cells[3,strcptgrid2];
             dencode.emplacement:=stringgrid2.Cells[4,strcptgrid2];   // l'emplacement comme cela si il y a plusieur emplacement avec le meme code
             dencode.prix:=stringgrid2.Cells[6,strcptgrid2];
             dencode.date:=dencode.date;
             write(fichier,dencode);
          end;


      end;
       seek(fichier,0);
   end;
      showmessage('numeraux de serie article non trouver');
 end;
 closefile(fichier);


Nickel ;)

jmp77 · Answer

Heureux d'avoir pu te depanner.



Bonne continuation.


JMP77.

Boucle imbriquée prob

4 réponses

Votre réponse

Discussions similaires