copie multiple de fichier [Résolu]

[gaston11]

Bonjour et joyeux noël a tous!

voilà pour mes essais et mon apprentissage j'essaye de générer des fichier via des variables

et je suis bloqué, je sens que c'est un probleme de type (pointeur...) mais je sèche

ci après le code que j'aimerais voir fonctionner

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button3Click(Sender: TObject);
var a :    integer;
    fich,fich1  : PansiChar ; // j'en ai déduit via les msg d'erreur du compil
                                    // qu'il lui fallait ce type de variable (un pointeur je pense)
begin
     fich:='c:\docs\kkk\test';  // nom bidon mais le but est d'obtenir 10 fichiers dans le sous rep kkk de nom test1.doc à test10.doc
    for a := 1 to 10 do
    begin
      fich1 := fich+ IntToStr(a)+'.doc';
      CopyFile('c:\test.txt',fich1,true);
    end;
end;

ce que je ne comprends pas c'est qu'avec le code suivant ca marche

Code :

1
2
3
4
5
6
7
 
Var fich,fich1  : PansiChar ;
begin
      fich:='c:\docs\kkk\test01.doc';
       fich1 := fich; 
      CopyFile('c:\test.txt',fich1,true);
 end;

de meme

avec

Code :

1
2
 
fich:='c:\docs\kkk\test01' +'.doc';

le code est accepté et fonctionne

Code :

1
2
3
 
fich:='c:\docs\kkk\test01';
 fich := fich  +'.doc';

alors que celui-ci plante!!


comment faire pour arriver a créer une suite de fichiers avec des noms générés avec des variable??

Merci

[MIWAN]

salut

Code :

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var fich:string;
begin
fich:='c:\docs\kkk\test01';
 fich := fich  +'.doc';
  CopyFile('c:\test.txt',pchar(fich),true);
end;

[gaston11]

Merci!! ca marche!!!!

comme quoi .. et j'ai trouvé la doc sur pchar...

a bientôt