Discussion :

[nah_wah]

Salut ;
j'ai le probleme suivant si mon fichier texte existe la lecture et l'ecriture marche ,si le cas contraire il me sort un message d'erreur

Code :

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

1
2
 
Erreur E/S 32

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
22
23
24
var
FileToFind:string;
F:textfile;
lig,S,S1 : string;
i:integer;
begin
  s:='c:\Gtest.txt' ;
  FileToFind :=FileSearch(s,GetCurrentDir);
  if FileToFind =''then FileCreate(s);
  begin
  assignfile(F,s);
  rewrite(F);         // Message d'erreur sur cette ligne
  if fileexists(s) then
  append(F)
  else
  rewrite(F);
//  lig :='0,022111111';
  for i:=0to Memo1.Lines.Count do
  begin
  lig:=lig+Memo1.Lines.Strings[i]+#13;
  end;
  writeln(F,lig);
  closefile(F);
  end;

Merci.[/code]

[nah_wah]

Salut,

Code :

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

  rewrite(F);         // Message d'erreur sur cette ligne

le probleme est au moment de l'ecriture.
Merci.

[Thierry G.]

bonjour,

apres quelque difficultees a lire le code, voici uneversion qui ne plante pas a la creation du fichier:

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
26
27
28
 
var
FileToFind: string;
F: textfile;
lig, S, S1 : string;
i: integer;
 
begin
  s:='c:\Gtest.txt' ;
 
  if not FileExists(s) then
    FileCreate(s);
 
  assignfile(F, s);
  rewrite(F);        
 
  if fileexists(s) then
    append(F)
  else
    rewrite(F);
 
  for i:=0 to Memo1.Lines.Count - 1 do
    lig:= lig + Memo1.Lines.Strings[i] + #13;
 
  writeln(F, lig);
  closefile(F);
 
end;

[jmjmjm]

Désolé Thierry mais je pense que ton code plante aussi
Je m'explique lorsque tu cree un fichier avec CreateFile ton fichier est ouvert il faut le refermer avant de le lire

Code :

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

1
2
  FileHandle :=FileCreate(s);
  Fileclose(FileHandle);

[jmjmjm]

Voila le code corrigé :

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
26
27
28
29
30
31
 
var
FileToFind: string;
F: textfile;
lig, S, S1 : string;
i: integer;
FileHandle:integer;
begin
  s:='c:\Gtest.txt' ;
 
  if not FileExists(s)
      then begin
      FileHandle :=FileCreate(s);  //Création Fichier
      Fileclose(FileHandle);       //fermeture du fichier
      end;
 
  assignfile(F, s);
  rewrite(F);
 
  if fileexists(s) then
    append(F)
  else
    rewrite(F);
 
  for i:=0 to Memo1.Lines.Count - 1 do
    lig:= lig + Memo1.Lines.Strings[i] + #13;
 
  writeln(F, lig);
  closefile(F);
 
end;

PS:Merci Thierry pour l'aération du code

[nah_wah]

Merci ,
je pense que vous n'avez pas bien compris mon probleme :
mon code marche tres bien si le fichier existe .
mais quand mon fichier n'existe pas et qu'il le crée et qu'il veut ecrire sur ce premier il y a erreur et si je relance le code il passe
J'espere que j'etais clair sinon je suis la.
Merci

[jmjmjm]

oui c'est ce que j'ai fait si le fichier Gtest n'existe pas il le créé et la tu as une erreur car lors de l'appelle a la fonction FileCreate tu ne referme pas le fichier tu as essyaer mon code ?? et tu as toujours le probleme??

[nah_wah]

Merci jmjmjm;
c'est ca ce que je cherchais c'est la fermeture du fichier.
Encore merci pour votre patience.

[jmjmjm]

De rien ya pas de souci :o
Pense a l'etiquette