Discussion :

[Andry]

Salut à tous;

J'essaye de generer un rapport sous forme de fichier texte en vu de l'envoyer par mail. Le problème : c'est que j'ai cette erreur :

E/S 105

a chaque tantative

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
 
Var QryWarning : TIBQuery;
    F          : TextFile;
Begin
      AssignFile(F,FileName);
      If Not FileExists(FileName) then
        Rewrite(F)
      else
        Append(F);
      Writeln('TRAITE A 5 JOURS D''ECHEANCE');
      Writeln(F,BLABLABLA')
      Flush(F);
      CloseFile(F);

Je vois pas trop ou se situe le problème car c'et le code de l'aide de Delphi que j'ai utilisé.

Merci

[qi130]

Code :

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

Writeln(F,BLABLABLA')

manque une quote,......et le ;

[Andry]

Code :

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

Writeln(F,BLABLABLA')

manque une quote,......et le ;

En faites, j'oublie la variable F dans une autre bout de code c'est qui a provoqué l'erreur.

Merci à toi.

[Eithne]

Salut j'ai la même erreur et je ne vois pas vraiment où est le problème

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
  AssignFile(text,chemin);
 
  if not FileExists(chemin) then
    rewrite(text)
  else
    Append(Text);
 
  reset(Text);
 
  nbligne:=0;
  while not eof(text) do begin
    readln(text);
    inc(nbligne);
  end;
  if nbligne>5 then begin
    showmessage('Plus de 5 lignes');
  end;
 
  writeln(text,chaine);
 
  closefile(text);
end;

Merci

[RamDevTeam]

En faisant reset(Text);
tu passe le fichier en lecture et non en écriture d'où l'erreur sur le writeln

[Eithne]

Problème résolu. Merci

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
  AssignFile(text,chemin);
 
  reset(Text);
 
  nbligne:=0;
  while not eof(text) do begin
    readln(text);
    inc(nbligne);
  end;
  if nbligne>5 then begin
    showmessage('Plus de 5 lignes');
  end;
 
  if not FileExists(chemin) then
    rewrite(text)
  else
    Append(Text);
 
  writeln(text,chaine);
 
  closefile(text);