Discussion :

[John Fullspeed]

Voila je voudrais juste modifier la traille d'un fichier afin de le raccourcir:
je cherche vainement une fonction du type
SetEOF(fic,XXX);
Meme avec des streams la fonction size et setsize ne sont pas utilisables (dixit la doc)

Par depit je recree le fichier avec laz bonne taille: BlockRead,BlockWrite mais existre-til une methode plus simple?
Merci

John

[Clorish]

pkoi pas un Append(f) au lieu de Reset/Rewrite ?
Apres il suffit de faire un seul BlockWrite de la taille que tu desire pour l'ajouter a la fin du fichier.

[John Fullspeed]

Je ne cherche pas à rallonger mais a raccourir!

John

[Clorish]

Dsl ... j'avais pas compris dans ce sens.
Dans ce cas ..... non je ne vois pas :/

[Mac LAK]

Voilà ton bonheur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Procedure SetEOF ( Var F : File ; Const Pos : LongInt ) ;
Begin
     Seek(F,Pos);
     Truncate(F);
End;

Cf. doc de Seek et Truncate pour les limitations.

[John Fullspeed]

je te ferais bien la bise
Merci
John

[Mac LAK]

je te ferais bien la bise
Merci

Pour le code, c'était avec plaisir, mais ne m'en veux pas si je te demande d'envoyer ta soeur plutôt que toi pour la bise... ;-)