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.