Discussion :

[steph41200]

Bonjour

Je parcours un fichier dont j extrait differente valeur à l aide d un reapeat until EOF(F);
Dans cette boucle j apelle une fonction qui effectue differents calculs et ecrit dans un fichier de sortie ce resultat à l aide d'un Writeln(G,ma valeur extraite de ma fonction)
toutes ces opérations se font dans 3 boucles imbriquées.
Le tout fonctionne parfaitement mais parfois, ça plante.
Resultat, ça ne m ecrit que partiellement dans le fichier puis 'erreur....'
j'essaie, re-essaye et là ça fonctionne.

J en ai deduit que celapouvait provenir du fait que un nouvel appel à la fonction s effectuait alors même que la ligne n avait pas encore été ecrite dans le fichier de sortie mais peut etre n est-ce pas cela...

toujours est il que si mon hypothese est exacte, il me suffirait, de m'assurer que la ligne soit bien ecrite dans le fichier pour lancer l 'appel à la fonction mais comment faire etant donné que writeln est une procedure ?
Un while peut etre mais là je ne vois pas comment le mettre en place etant donné que l appel à la fonction se fait avant l ecriture dans le fichier ...

Je suis ouvert à toutes propositions....

merci pour votre aide

[Paul TOTH]

en dehors d'un contexte multithread, il ne peut y avoir un double appel.

qu'est-ce qui te fait penser qu'il y a un nouvel appel de la fonction ?

[steph41200]

En fait la ligne d appel est en surbrillance et la ligne sauvegardee à l issue de l appel n est pas complete donc je me dis que la fonction a retourné la valeur correctement mais que la sauvegarde n a pas été terminé parce qu une nouvelle valeur est arrivée et que du coup il ne sait plus quoi sauvegarder...

Mais mon raisonnement tient il au moins la route ?

[Okaryn]

Comme l'indique Paul, il n'y a pas de risque d'avoir 2 writeln en même temps si tu n'utilises pas les threads (ou des timers).

Ce qui peut se passer, éventuellement, c'est une violation d'accès au fichier s'il est verrouillé.

Ton fichier de sortie, est-il ouvert une fois au début et refermé tout à la fin, ou bien tu l'ouvres/fermes à chaque appel ?

Quel est l'erreur retournée au moment du plantage ?

[steph41200]

effectivement le fichier est ouvert au debut puis refermé à la fin

Le message d erreur est erreur EAccessViolation

et quand j arrete, ça se repositionne sur l appel de la fonction

merci

Voici le code simplifié :

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
for Fl := 0 to FileListBox1.Count - 1 do
begin
  for BK := 0 to length(Brique) - 1 do
  begin
    for T := strtoint(ed_T_debut.Text) to strtoint(ed_T_fin.Text) do
    begin
      AssignFile(F, FileListBox1.Items[Fl]);
      Reset(F);
      AssignFile(G, Dir);
      Rewrite(G);
      repeat
        Readln(F, stg);
        B := AppleALAFonction(stg);
        Writeln(G, Dte + ';' + floattostr(cours) + ';' + inttostr(ind)
            + ';' + inttostr(B));
      until EOF(F);
      CloseFile(G);
      CloseFile(F);
    end;
    // ---fin T
  end; // ---fin BK
end;

[Paul TOTH]

hum...tu peux ajouter un Flush(G) après le WriteLn(G,...) pour vider les buffers d'écritures, mais n'aurais-tu pas une erreur dans AppleALAFonction ?

(désolé pour l'indentation)

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
 
      AssignFile(F, FileListBox1.Items[Fl]);
      Reset(F);
 try
      AssignFile(G, Dir);
      Rewrite(G);
  try
      repeat
        Readln(F, stg);
     try
        B := AppleALAFonction(stg);
        Writeln(G, Dte, ';', cours, ';', ind, ';', B);
      except
        on e : Exception do
         ShowMessage(e.Message);
      end;
      until EOF(F);
   finally
      CloseFile(G);
   end;
 finally
      CloseFile(F);
 end;

note que la fonction WriteLn peut gérer différents paramètres de différents types...tu peux même spécifier un format numérique : WriteLn(G, cours:0:2);.