Discussion :

[Andy_24DB]

Bonjour tous le monde,
J'ai tellement regardé le forum que je le connait par coeur
J'ai suivi tous les conseil que j'ai lu mais malgré tout
j'ai un problème que je ne sais pas résoudre (et c'est pas pour les cours)!
Bon d'abord , j' ai déjà fait des programmes qui permettait enregistrer des variables ou des types records dans des fichiers sans trop de problème(reset,append,assing,....).
Mais là je comprends pas .
1) Ce que je veux faire et qui marche : récuperer ,le "chemin" d'un fichier(ex:c:\1\2\) , "extraire" le nom du fichier , avoir la taille du fichier , le nombre de ligne du fichier , j'ai mis tous ça dans 4 variables.
2) Ce que je veux faire et qui ne marche vraiment mais alors là vraiment pas Envoyer les 4 variables dans une autre procedure et simplement les écrire les une à la suite de l'autre à la fin d'un fichier que j'appelle "cfg.ini" qui existe déjà. A chaque tentative je reçois erreur E/S 103 . j'ai essayé avec {$I-}et{$I+} et rien à faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure TForm4.Button2Click(Sender: TObject);
var f:textfile;i:integer;ligne,Nom_fichier,chemin,taille,nbre_ligne:string;
begin
i:=0;
if opendialog1.Execute then
begin
chemin:=opendialog1.FileName;
   Nom_fichier:=extractfilename(opendialog1.filename);
      assignfile(f,opendialog1.FileName);
        reset(f);
          //calcul le nombre de ligne
           while not eof(f) do
           begin
           readln(f,ligne);
           inc(i);
           end;
        closefile(f);
        //calcul la taille du fichier
        taille:=inttostr(filesize(f));
        nbre_ligne:=inttostr(i);
Uutil.sauver_dans_fichier(nom_fichier,chemin,taille,nbre_ligne);
        end;
end;
 
procedure sauver_dans_fichier(nom,chemin,taille,nbre_ligne:string);
Var spec:text;nom_fichier:string;
begin
nom_fichier:=('cfg.ini');
        Assign(spec,'cfg.ini');
        rewrite(spec);
                writeln(spec,nom);
                writeln(spec,chemin);
                writeln(spec,taille);
                writeln(spec,nbre_ligne);
       close(spec);
end;

Si quelqu'un à une idée merci beaucoup !

Andy

[Andy_24DB]

Pardon j'aurai peut-être mieux fait de le poster dans le forum Delphi .....quoique....

[M.Dlb]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure sauver_dans_fichier(nom,chemin,taille,nbre_ligne:string); 
Var spec:textfile;nom_fichier:string; 
begin 
nom_fichier:=('cfg.ini'); 
        Assignfile(spec,'cfg.ini'); 
        rewrite(spec); 
                writeln(spec,nom); 
                writeln(spec,chemin); 
                writeln(spec,taille); 
                writeln(spec,nbre_ligne); 
       closefile(spec); 
end;

Pourquoi ne laisses-tu pas la taille et le nombre de lignes en entier, au lieu de les convertir en string ??
a+

[Andy_24DB]

Oui t'as raison mais je ne pense pas que cela résoudra mon problème
Si quelqu'un à une idée .....

[Andy_24DB]

J'ai trouvé le problème ..... c'est moi qui mal placé les {$I-}
Au fait est-ce que vous considérer {$I-} comme du "bricolage" :
Mais j'ai un autre problème il ne veut plus entendre parlé de Filesize maintenant
Voilà la procedure réparée:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure sauver_dans_fichier(nom,chemin,nbre_ligne:string;taille:integer);
Var spec:textfile;nom_fichier:string;
begin
nom_fichier:=('cfg.txt');
        Assignfile(spec,Nom_fichier);
        {$I-}
        append(spec);
                writeln(spec,nom);
                writeln(spec,chemin);
                writeln(spec,taille);
                writeln(spec,nbre_ligne);
       closefile(spec);
       {$I+}

[Sub0]

Salut!

Il faut que je t'explique comment utiliser la directive de compilation $I je crois...
{$I-} Permet de désactiver l'affichage des erreurs, mais ces éventuelles erreurs ne sont pas oubliée, elles sont reportées sur le {$I+} suivant.
{$I+} et {$I-} servent surtout à IOResult. Par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
{$I-} 
AssignFile(F,nomdefichier); 
 
Reset(F,1); 
 
Size:=FileSize(F);
 
CloseFile(F);
 
if({$I+}IOResult{$I-}<>0) then ShowMessage('Error open file!');

Dans cet exemple, toutes les erreurs d'E/S sont reportées sur le IOResult de la fin...
Tu remarqueras que pour utiliser IOResult, il faut que la directive soit activée.
Tu remarqueras aussi que pour utiliser FileSize, il faut que le fichier soit ouvert.

Voilà, j'espère t'avoir éclairé, et si tu as des questions, n'hésite pas, à+

[Andy_24DB]

Merci , au sujet de l' explication sur les directives de complilation , je savais que ça existait mais pas vraiment comment m'en servir....

Et en effet il faut que le fichier soit ouvert pour avoir sa taille et ça je ne le savais pas je m'en suis rendu compte 5 min avant ton mail .... maintenant tout tourne


Merci sub 0

[M.Dlb]

La directive {$I} n'a pas besoin d'être utilisée dans ton cas, car elle n'est utlisée que pour récupérer les erreurs...

Oui t'as raison mais je ne pense pas que cela résoudra mon problème
Si quelqu'un à une idée .....

Euh je t'ai filé la réponse dans mon post précedent, à moins que tu saches pas lire........
Et puis mettre des entiers à la place de string, ca fera un code plus efficace
a+

[Andy_24DB]

Je lis mieux que je ne programme

Ben oui...merci , c'est pour ça que j'ai mis résolu dans le sujet

[M.Dlb]

Désolé, ce n'est pas après toi personnellement que j'en ai, mais ca fait plus de deux ans que je participe à ce forum, et les rares mercis qu'on recoit sont plutôt... rares !
Désolé, c'est tombé sur toi
La prochaine fois, pense aux gens qui t'ont aidé et qui t'ont consacré un peu de leur temps !
( Ca vaut pour tout le monde bien sûr ! )

a+

[Sub0]

Et bien moi, je profite de l'occasion pour vous remercier beaucoups...
Car grâce à ce site, j'ai super bien progressé en programmation!
MERCI A TOUS!

[Andy_24DB]

MERCI beaucoup pas seulement pour la réponse à ma question
mais aussi pour mes futures questions

Et comme sub0 , j'ai vraiment avancé bcp en programmation ,
c'est pas à mes cours qu'on va m'expliquer comment fonctionne une stringgrid ou une toolbar , surtout si je dis à mes profs que c'est pour faire un outil multimédia