Discussion :

[Invité]

bonjour

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

Code :

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

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 :

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

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

[zemeilleurofgreg]

Pourquoi ce rewrite ?

Rewrite(FichierTextfirstpass);

[ero-sennin]

Salut,

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

[Reisubar]

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

Code :

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

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;

[Invité]

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 :

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

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

[Invité]

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

[ero-sennin]

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

Code :

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

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;

[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.

[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
Juste une question ... Le répertoire existe bien ? Ce n'est que le fichier qui n'existe pas ?

[zemeilleurofgreg]

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

[the_clansman]

Salut,

Tu as écrit :

Code :

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

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 :

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

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...

[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

[the_clansman]

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.