salut
procedure TForm1.Button1Click(Sender: TObject);
var fich:string;
begin
fich:='c:\docs\kkk\test01';
fich := fich +'.doc';
CopyFile('c:\test.txt',pchar(fich),true);
salut
procedure TForm1.Button1Click(Sender: TObject);
var fich:string;
begin
fich:='c:\docs\kkk\test01';
fich := fich +'.doc';
CopyFile('c:\test.txt',pchar(fich),true);
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.