Discussion :

[LAMAN]

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 :

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
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.

[smyley]

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

[M.Dlb]

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

[JoseF]

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 :

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

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

[darrylsite]

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

[LAMAN]

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