FileCreate

Version imprimable

FileCreate

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:

1
2
 
Erreur E/S 32

voici mon code

Code:

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]

11/11/2005, 10h35
nah_wah

Salut,

Code:

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

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

bonjour,

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

Code:

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;

11/11/2005, 10h50
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:

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

Voila le code corrigé :

Code:

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

11/11/2005, 10h58
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
11/11/2005, 11h00
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??
11/11/2005, 11h01
nah_wah

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

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