Discussion :

[Romain²]

Bonjour,
Je me présente je suis un jeune lyceen qui dévellope des applications en delphi et mon probleme est le suivant.

J'ai une boucle et deux TStringList.


List = La liste de toutes les lignes d'un fichié texte.
Installed = La liste d'un autre fichier texte.

Mon probleme est que lorsque la boucle a fait le tour une fois elle me retourne cette erreur : List Index Out Of Bounds (1)

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Installed := TStringList.Create;
Installed.LoadFromFile(PatcheFile);
List := TStringList.Create;
List.LoadFromFile(ExtractFilePath(Application.ExeName)+'Data/Patche.dat');
 
  For I:=0 To List.Count-1 Do
   Begin
    Showmessage(List.Strings[I]);
    if(Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1) = Installed.Strings[I])
     then
      Begin
      Showmessage('Debug:If');
      End
     else
      Begin
      Showmessage('Debug: Else');
      End;
   End;
end;

Celui ci compare si la ligne est deja présente dans l'autre fichier texte.
Mais voila l'erreur est la et cela fais deux jours que je cherche mais sans résultat.

Merci a celui qui pourra m'aider.


Romain.

[portu]

il y a de grande chance que ton Installed aie moins de ligne que ton List.
Donc si la valeur max de I = List.Count-1 et Que Installed.Count < List.Count , cela va générer une erreur de dépassement.

[bjl]

Bonjour,

fais un autre boucle sur les items de installed

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 For I:=0 To List.Count-1 Do 
   Begin 
    Showmessage(List.Strings[I]);
    found := false;
    for j := 0 to installed.count - 1 do
      if(Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1) = Installed.Strings[j]) 
     then found := true;
 
   if found then
      Begin 
      Showmessage('Debug:If'); 
      End 
     else 
      Begin 
      Showmessage('Debug: Else'); 
      End; 
   end;

[Romain²]

Merci de vos réponses je vais essayer sa de suite et je vous en tiens informé

[Romain²]

Merci cela marche

[Romain²]

J'ai un nouveau problem
Ma boucle fais n'importe koi :S

Patches.txt contient : (Installed)

ex1.grf
ex2.grf

Liste.dat contient : (List)

ex1.grf|http://oqsdqsd
ex2.grf|http://sqdqsd
ex3.grf|http://ijsdqd

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
  If (Installed.Count = 0)
   Then
    Begin
     A := True;
    End;
        If (A = True)
         Then
          Begin
           Showmessage('Premier lancement');
          End
         Else
       For I:= 0 To List.Count - 1 Do
        For J := 0 To Installed.Count - 1 Do
         If not(Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1) = Installed.Strings[J])
          Then
           Begin
            Stg := Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1);
            Showmessage('Le patche n°:'+inttostr(I)+' portant le nom: '+Stg+' n as pas encore été installé');
           End
          Else
           Begin
            Showmessage('Le patche n°:'+inttostr(I)+' a déja été installé');
           End;
          End;

Merci a ceux qui pourrons m aider :s

[Rayek]

Précise le n'importe quoi ^^

Ca plante où ?

[Romain²]

Eh bien en faite a la place de voir qu ils sont deja inscrit et de les passé on dirai qu il fais les deux actions mais dans un ordres totallement bizard j ai vraiment du mal a comprendre.

[bjl]

Hello, c'est normal...

tu teste à chaque fois à la fois sur i et sur j.

ta première boucle doit vérifier sur chaque fichier de list si un item existe dans installed.
mais le message ne doit apparaitre que pour cahque fichier de list : il faut donc les sortir de la boucle sur installed.

un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Stg, tmps : string;
FileFOund : Boolean;
begin
 
 
For I:= 0 To List.Count - 1 Do
  Begin
  FileFound := False; // initialisation du flag
  Stg := Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1);
  For J := 0 To Installed.Count - 1 Do
 
  // boucle sur installed
    If (Stg = Installed.Strings[J]) Then FileFOund := True; // flag j'ai trouvé le fichier (je vais garder ce flag à 1 pendant le reste de ma boucle sur installed)
 
  // je suis revenu dans ma boucle sur list et je traite le résultat
  if filefound then 
     Showmessage('Le patche n°:'+inttostr(I + 1)+' a déja été installé')
  else
     Showmessage('Le patche n°:'+inttostr(I + 1)+' portant le nom: '+stg+' n as pas encore été installé');
  End;

[Rayek]

Moi pour le fi j'aurais plutot fait comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If not(Pos(Installed.Strings[J] + '|',List.Strings[I]) = 1) then

[Romain²]

Sa a l'aire de fonctionner... je vais continuer voir si je ne rencontre plus de problemes.
Merci a vous.

[Romain²]

Je vous demande un dernier petit conseil, comment vous feriez pour par exemple noté un element (List.String[I]) dans un fichier texte.
J'avais essayé mais je ne suis arrivé a rien il y avais une erreur.

[bjl]

peux tu développer ce que tu veux faire


tu veux rajouter une ligne dans un fichier texte ?

[Romain²]

Pardon en faite a la fin de la boucle lorsqu il aura vérifié que List.String[I] n'est pas présent dans Installed.String[I] j aurai aimé l'ajouter en bas de ce fichier texte.
Afin qu'au prochain lancement de l application il soit considéré comme deja téléchargé.

[Guile]

Si tu veux enregistrer différentes lignes dans un fichier text tu peux creer une troisième liste puis faire un savetofile du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
ListeSave := TStringList.Create;
try
  for i := 0 to List.Count-1 do
    ListeSave.Add(List.String[I]) ;
  ListeSave.SaveToFile('monfichier.txt');
finally
  ListeSave.Free;
end;

[bjl]

et ce fichier texte, il est dans quel état ?

si tu l'as chargé dans la stringlist list par Tstringlist.laodFromFile,

il suffit de rajouter l'item à la fin de la liste et de faire Tstringlist.saveToFile

[Guile]

Ah désolé, pas eu le temps de lire ton dernier message lol

Bon alors rajoute tes lignes en faisant installed.Add(maligne) puis un savetofile

[Romain²]

Merci je vais éssayer .
Vous êtes vraiment très gentil
Sa me motive a continuer et a apprendre plus

[Romain²]

Ma derniere question se pose au niveau de la boucle,
Je ne sais pas quoi mettre afin que la boucle recommence en incrémentant le I de 1 lorsque le Installed.String[I] et List.String[I] sont les meme car quand je fais l ajout dans Installed il ne m'ajoute pas le bon et je pense que cela vient du faite que la boucle ne soit pas correcte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For I:= 0 To List.Count - 1 Do
  Begin
  Stg := Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1);
  For J := 0 To Installed.Count - 1 Do
    If (Stg = Installed.Strings[J])
     Then
      A := True;
  if A
   then
    Begin
 
    End
  else
   Fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+Copy(List.Strings[I], 1, Pos('|', List.Strings[I]) - 1),fmCreate);
   MainForm.IdHTTP.Get(Copy(List.Strings[I], Pos('|', List.Strings[I]) + 1, 128));
   Showmessage('Le patche n°:'+inttostr(I + 1)+' portant le nom: '+stg+' n as pas encore été installé');
   Installed.Add(Stg);
   Installed.SaveToFile(PatcheTXT);
  End;
End;

Apres plusieurs recherches je me rend compte que I et J n'ont pas la meme valeurs en arrivant au Else ou au If ...
Ce qui fais tout foirer.
I = 0
J = 2
Mais je ne sais pas pourquoi ? :S

[Romain²]

Up~