1 er demarrage

Question

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

jmp77 · Answer

Hello,



Peux tu donner le message d'erreur exact stp ?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cptpingu · Answer

Essaie de t'appliquer quand tu envoie un message. J'ai du mal a
comprendre ce que tu veux dire. Donne plus de d&#233;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&#233;cisement l'erreur ? (Touche
F7 et F8). Quand tu dis "au d&#233;marrage" est-ce que ton programme d&#233;marre
tout seul au lancement de windows, et plante a ce moment la ?

japee · Answer

Salut,



Sinon, tu nous donnes un petit bout du code qui pose probl&#232;me, si tu ne sais pas l'exprimer autrement...

Parce que l&#224;, &#224; priori, on peut pas vraiment voir o&#249; est la difficult&#233;. 



Bonne prog' 



japee

burnouze · Answer

burnouze · Answer

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

jmp77 · Answer

Effectivement on dirait que l'erreur vient du fait que les fichiers sont d&#233;j&#224; 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&#233;ponse accept&#233;e.

burnouze · Answer

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&#233;j&#224;');


      end
    else
      begin
        entete:=DBEarticle.Text+' cr&#233;&#233; 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''&#234;tre cr&#233;&#233;');
        closefile(temp);


      end;
end;

jmp77 · Answer

Hello,



D&#233;sol&#233; du retard de ma r&#233;ponse mais j'&#233;tais en vacances jusqu'a
aujourd'hui. Alors le probleme vient que tu cr&#233;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''&#234;tre cr&#233;&#233;');

    closefile(temp);

    end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

1 er demarrage

8 réponses

Votre réponse

Discussions similaires