[TP] Boucle "for i := 1 to ParamCount do" ne s'exécute pas

bonjour
j'ai ecris un programme qui permet le passage de deux parametre à une procedure ,lorsque je debug pour voir les pas d'execution je remarque que
les ligge de code entre for i := 1 to ParamCount do ne s'execute pas et que le curseur se derige vers la fin du programme
voila le bout de programme
à noter que tous les varibles necessaire à la bonne marche du programme sont déclarés
objet du programme concatener 2 fichiers

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure copyfa(f1,f2 : string); BEGIN {$I-} assign(g,'samir.tmp');{fichier de type text} rewrite(g); for i :=1 to paramcount do begin assign(f,ParamStr(i)); reset(f); while not eof(f) do begin read(f,IT); Writeln(g,IT.nom,gt.prenom,gt.adresse); end;   end; close(f); close(g); end; begin da :='c:\candidat1.dat'; {fichier de type record} sb :='c:\candidat2.dat' ;{fichier de type record} copyfa(da,sb); end.

---

En debug tu as pensé à vérifier la valeur de paramcount ?

Si ca ne passe pas dedans, c'est que ParamCount < 1 :)

Bonjour,

moi je code comme ça ... avec des paranthèses masi je ne sais pas si ça intervient.

j'ai un programme qui fonctionne ainsi et sans aucun problème

Code:

---

1 2 3 4 5

for j:=1 to paramcount() do begin assignfile(f,paramstr(j)) [...] end;

---

Citation:

---

for i :=1 to paramcount do
begin
assign(f,ParamStr(i));

---

En fait je crois que tu veux compter les parametres f1 et f2 et les utiliser.
Mais c' est pas ce que fait paramstr et paramcount. Il compte et renvoie les arguments de la ligne de commande (quand tu lance le programme sous dos ex: nbtstat -A 127.0.0.1. ici paramcount vaut 2 et paramstr vaut -A et 127.0.0.1).
Puis les arguments d' une fonction ne sont pas variables (enfin on peut tout fois s' en affranchir), tu devrais les utiliser directement dans le programme au lieu de faire une boucle pour raccourcir le code

Merci pour les reponses pour Paramcount sa caleur eb debugant c'est 0
ce qui signifie qu aucun argument n'a été passé à la procedure (copa)
mais je me demande comment faire pour debuger le code à partir de la ligne de commande en lui transmettnt les 2 arguments
j'ai essayé a partir de la ligne de commande DOS :
TPC D+ FICHIER.PAS candidat1.dat candidat2.dat pour voir l'evolution du programme et pour voir la valeur de paramcount ça n'a pas marché je crois que le syntax n'est pas bon
je vous demande si vous avez des idées et merci

Citation:

---

TPC D+ FICHIER.PAS candidat1.dat candidat2.dat

---

En fait tu doit d' abord crée l' application avec: tpc /M fichier.pas
Tu crée ainsi le fichier executable de ton programme.
Pour l' executer tu dois maintenant taper sous dos etant dans le meme dossier: fichier.exe condidat1.dat candidat2.dat
Et le tour est joué.

Bonjour.

L'erreur initiale provient d'une confusion entre les paramètres passés à un programme et les paramètres passés à une procédure.

ParamCount et ParamStr se rapportent aux paramètres passés au programme.
Ils sont sans intérêt ici car ce programme fonctionne sans paramètre.

La procédure copyfa est déclarée avec deux paramètres appelés fi et f2.
Il faut donc que cette procédure utilise f1 et f2 ...

Code possible :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure copyfa(f1,f2 : string);   procedure Recopie(f0: string); Begin assign(f,f0); reset(f); while not eof(f) do begin read(f,IT); writeln(g,IT.nom,gt.prenom,gt.adresse); end; close(f); end;   BEGIN {$I-} assign(g,'samir.tmp'); rewrite(g); Recopie(f1); Recopie(f2); close(g); end;

---

Remarques :
- il faut fermer le fichier f avant de l'ouvrir à nouveau.
- on peut créer une procédure interne à une autre procédure.

Citation:

---

La procédure copyfa est déclarée avec deux paramètres appelés fi et f2.
Il faut donc que cette procédure utilise f1 et f2 ...

---

Il ne veut pas que ça se passe ainsi. Il veut passer deux argument aux progamme. Je lui est montré comment faire. Les f1 et f2 ne servent plus à rien. Il doit les supprimer et utiliser paramstr et paramcount pour lire les arguments passés au programme.

J'ai répondu à la question de LAMAN en tenant compte de sa première phrase :

" j'ai ecris un programme qui permet le passage de deux parametre à une procedure "

Tout le reste n'est qu'interprétation ...

merci beaucoup prof votre solution m'a permis de concatener les 2 fichiers dans un seul ,pour ce faire j'ai simplement supprimer la premiere ligne de votre code impecable et c'est un bon pas vers le but.
mais je m'excuse d'avoir mal exposé mon problème car Mr darrylsite a raison

je veux passer deux arguments a mon fichier exe à partir de la ligne de commande dos, supposons mon exe est copyfa.exe
j'ecris sur la ligne de commande copyfa.exe candidat1.dat candidat2.dat
et ces 2 arguments se transmetteront au programme pour les concatener dans le fichier samir.tmp
à noter que ces deux fichiers ont la meme structure

Dans ce cas, tu peux utiliser ParamStr pour récupérer les valeurs des noms de fichiers.

ParamCount sert en général de vérification :

Code:

---

1 2 3 4 5 6

Si ParamCount = "bon nombre de paramètres" (ici = 2) alors fichier1 := ParamStr(1) fichier2 := ParamStr(2) Sinon "Rentrez le bon nombre de paramètres !" Fin

---

merci pour vous tous le probleme est resolu grace à votre aide,je vous remercie tous