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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
le code est accepté et fonctionne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 fich:='c:\docs\kkk\test01' +'.doc';
alors que celui-ci plante!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 fich:='c:\docs\kkk\test01'; fich := fich +'.doc';
comment faire pour arriver a créer une suite de fichiers avec des noms générés avec des variable??
Merci
Partager