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]