copie multiple de fichier
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
