Bonjour à tous
Je cherche à copier une partie de fichier dans un autre fichier.
Je vais:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
 FileDestin:=tfilestream.create('d:\newfile.txt',fmOpenWrite or fmCreate);
 
 SourceFile := TFileStream.Create('D:\monfichier.txt', fmopenRead);
SourceFile.Position:=100;
      FileDestin.copyfrom(Sourcfile,500);
pour copier la partie de l'adresse 100 à 500, mais j'ai toujours FileDestin.size=0