1 er demarrage

bonjour j ai fait un ptit prg qui cré des 2 dossiers puis a l'iterieur des dossiers il cré des .txt et au tout premier demarrage si les fichiers n'existent pas il les cré,si ils existent il les utilise en ecrivant dedans mais la 1 er fois il met un message d'erreur si j'arrete et je relance ca marche nickel je crois que c'est parce que les fichiers sont utilisés lorsqu il veut ecrire dedaans merci

Hello,

Peux tu donner le message d'erreur exact stp ?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

Essaie de t'appliquer quand tu envoie un message. J'ai du mal a comprendre ce que tu veux dire. Donne plus de détails. Est-ce que les fichiers ou les dossiers existent quand ca plante ? As-tu essayer de tracer ton projet pour voir ou se place précisement l'erreur ? (Touche F7 et F8). Quand tu dis "au démarrage" est-ce que ton programme démarre tout seul au lancement de windows, et plante a ce moment la ?

Salut,

Sinon, tu nous donnes un petit bout du code qui pose problème, si tu ne sais pas l'exprimer autrement...
Parce que là, à priori, on peut pas vraiment voir où est la difficulté.

Bonne prog'

japee

salut le message d'erreur est: erreur E/S 32. merci

Effectivement on dirait que l'erreur vient du fait que les fichiers sont déjà ouvert je pense.

Envoi nous un morceau de code si tu veux que l on puisse t'aider.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

salut voici le code:

procedure TForm1.controlfichiertxt;
var
temp:textfile;
ref, chemin_dossier, chemin_txt,entete :string;
begin
  ref:=DBEarticle.Text;
  chemin_dossier:=extractfilepath(paramstr(0));
  chemin_txt:=(chemin_dossier+'\save\'+ref+'.txt');
    if fileexists (chemin_txt) then
      begin
        showmessage('cette article existe déjà');

      end
    else
      begin
        entete:=DBEarticle.Text+' créé le '+ DBEdate.Text+' '+DBEinfo_article.Text+' '+' reference fournisseur '+DBEref_fournisseur.Text;
        filecreate(chemin_txt);
        assignfile (temp,chemin_txt);
        rewrite(temp);
        writeln(temp,entete);
        showmessage('l''article '+DBEarticle.Text+' viens d''être créé');
        closefile(temp);

      end;
end;

Hello,

Désolé du retard de ma réponse mais j'étais en vacances jusqu'a aujourd'hui. Alors le probleme vient que tu crées 2 fois ton fichier :
Une premiere fois avec filecreate(chemin_txt);
et la seconde en fesant rewrite(temp);

Si tu fais un filecreate tu dois faire un fileclose apres regarde l'aide delphi et tu comprendras.
Un conseil enleve ton filecreate et modifie ton code pour gerer la fermeture de ton fichier comme ceci et ce sera tres bien :

Assignfile (temp,chemin_txt);

    Try
    rewrite(temp);
    writeln(temp,entete);
    Finally
    showmessage('l''article '+DBEarticle.Text+' viens d''être créé');
    closefile(temp);
    end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.