Discussion :

[sematimo]

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

[Guesset]

Bonjour,

Comment il sait que c'est fini ? Il ne manque pas quelque chose ?

Par ailleurs il y a des fautes de frappe qui devraient poser problème à la compilation.

Il faut toujours mettre les vrais sources qui posent problèmes car les extraits modifiés ajoutent souvent de faux problèmes et ralentissent le diagnostic.

Salutations

[thewolf]

Bonjour.

SourceFile et SourcFile

[sematimo]

après remplacement de sourcfile remplacé par sourcefile
ok
parfois la lecture par quelqu'un d'autre sauve la vie
merci