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;