i/o error 105

Version imprimable

i/o error 105

bonjour

dans un fichier unit1.pas j'ai fait une procédure:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TxForm.reecriretxtfirstpass(filetxtfirstpass: string); var FichierTextfirstpass: TextFile; begin AssignFile(FichierTextfirstpass, filetxtfirstpass); =>Rewrite(FichierTextfirstpass); Writeln(FichierTextfirstpass, 'ceci est votre premier fichier texte'); Writeln(FichierTextfirstpass, 'comme vous le constatez, rien de difficile ici'); CloseFile(FichierTextfirstpass); end;
dans un autre fichier unit2.pas j'appelle la procédure

Code:

xForm.reecriretxtfirstpass(filetxtfirstpass);

quand je compile : aucun problème mais quand je lance l'application (cette procédure est exécutée quand je clique sur un bouton) il marque : i/o error 105 et le debugger pointe à la ligne marquée par la flèche en rouge (voir procédure ci-dessus).

impossible de comprendre pourquoi

17/07/2008, 18h23
zemeilleurofgreg

Pourquoi ce rewrite ?

Citation:

Rewrite(FichierTextfirstpass);
17/07/2008, 18h40
ero-sennin

Salut,

Que contient la variable filetxtfirstpass et comment est-elle déclaré ?

HS, mais pourquoi ne pas utiliser des classes plus modernes ?

Code:

1
2
3
4
5
6
7
8
9
10
procedure TxForm.reecriretxtfirstpass(filetxtfirstpass: string);
begin
  with TStringList.Create do
  try 
    Add('ceci est votre premier fichier texte');
    Add('comme vous le constatez, rien de difficile ici');
  finally
    SaveToFile(filetxtfirstpass);
  end;
end;

17/07/2008, 19h11
Invité
Citation:

Envoyé par ero-sennin

Salut,

Que contient la variable filetxtfirstpass et comment est-elle déclaré ?

alors la variable filetxtfirstpass est une chaine string et elle contient le nom du fichier txt à modifier

cette variable je l'ai également déclarée dans un autre procédure que j'appelle juste avant celle-ci (je l'appelle dans la unit2.pas tout comme l'autre)
Code:

1 2 3 4 5 procedure TxForm.firstpassintotxt(filetxtfirstpass: string); begin filetxtfirstpass:= ChangeFileExt(En, '_firstpass.txt'); save_job('x.exe',xEn, filetxtfirstpass); end;
'En' étant le fichier log crée : donc il lui donne le même nom que le fichier log sauf qu'en + il ajoute '_firstpass.txt'
ensuite il réécrit dans le txt

j'aimerais me contenter de l'ancienne méthode si vous n'y voyez pas d'inconvénient
17/07/2008, 19h22
Invité

PS : et mon fichier txt n'est pas vierge : il contient du texte

Etrange, car chez moi, ça fonctionne ...
Voici ce que j'ai testé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button2Click(Sender: TObject);
var
FichierTextfirstpass: TextFile;
begin
AssignFile(FichierTextfirstpass, 'C:\Test\'+ChangeFileExt('test.txt','_fistpass.txt'));
 
Rewrite(FichierTextfirstpass);
 
Writeln(FichierTextfirstpass, 'ceci est votre premier fichier texte');
Writeln(FichierTextfirstpass, 'comme vous le constatez, rien de difficile ici');
CloseFile(FichierTextfirstpass);
end;

18/07/2008, 10h40
Invité

Comme tu dis c'est bizarre. Je me disais que c'était sûrement lié au fait que mon fichier n'est pas au bon emplacement donc n'existe pas dans le répertoire, d'où le fait qu'il disent i/o error 105.

A mon avis ça ne peut être que ça.
18/07/2008, 10h43
ero-sennin

Non, je ne pencherai pas pour cette solution puisque le rewrite va créer le fichier s'il n'existe pas ... A mon avis, le soucis vient d'ailleurs :roll:
Juste une question ... Le répertoire existe bien ? Ce n'est que le fichier qui n'existe pas ?
18/07/2008, 16h04
zemeilleurofgreg

est ce que AssignFile ne créé pas le fichier s'il n'existe pas ?

Il manque pas le var ???

Salut,

Tu as écrit :
Code:

1 2 3 4 5 procedure TxForm.firstpassintotxt(filetxtfirstpass: string); begin filetxtfirstpass:= ChangeFileExt(En, '_firstpass.txt'); save_job('x.exe',xEn, filetxtfirstpass); end;
Moi, je ne vois pas comment la variable filetxtfirstpass peut être initialisée de cette manière... J'aurais ajouté une clause var à la description de la procédure comme ceci...
Code:

1 2 3 4 5 procedure TxForm.firstpassintotxt(var filetxtfirstpass: string); begin filetxtfirstpass:= ChangeFileExt(En, '_firstpass.txt'); save_job('x.exe',xEn, filetxtfirstpass); end;
Ceci dit, je suis peut être à côté de la plaque...

18/07/2008, 18h18
Invité

oui tu avais raison c'était ça : ma variable n'était pas initialisé : ce qui fait que quand ça sortait de la procédure il n'y avait plus rien d'associé à cette variable

donc j'ai fait ce que tu as fait et maintenant ça marche

sujet résolu merci les gars
21/07/2008, 10h45
the_clansman

F7 + Voir variables locales

Salut,

Heureux d'avoir pu t'aider ;)

C'est sur ce genre de trucs qu'on peut passer des heures sans résultat... D'où l'utilité d'utiliser régulièrement F7 (fonctionnement pas à pas) avec l'affichage des variables locales (Menu Voir / Fenêtres de débogage / Variables locales ou directement par Ctrl + Alt + L)...

Ca fait peut être pas très pro du débogage, mais comme les outils sont là, autant les utiliser ;)

A+

Philippe.