Tronquer un fichier
Résolu
cs_LuckyLuck
Messages postés
59
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
5 juillet 2005
-
21 mars 2005 à 19:50
cs_LuckyLuck Messages postés 59 Date d'inscription dimanche 4 mai 2003 Statut Membre Dernière intervention 5 juillet 2005 - 22 mars 2005 à 19:22
cs_LuckyLuck Messages postés 59 Date d'inscription dimanche 4 mai 2003 Statut Membre Dernière intervention 5 juillet 2005 - 22 mars 2005 à 19:22
2 réponses
cs_ManChesTer
Messages postés
374
Date d'inscription
vendredi 20 octobre 2000
Statut
Modérateur
Dernière intervention
15 janvier 2021
22 mars 2005 à 16:52
22 mars 2005 à 16:52
Function TruncFile(Fn:String;Ns:Int64):Boolean;
Begin
Result:=False;
Try
with TFileStream.Create(Fn,fmOpenWrite) do
begin
Size:=ns;
Result:=True;
free;
end;
Except
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If TruncFile('C:\Test.Tst',512) then
Showmessage('Fichier mis a la taille de 512 Octets')
else
Showmessage('Erreur lors du changement de la taille du fichier');
end;
Bon Coding ....
ManChesTer.
Begin
Result:=False;
Try
with TFileStream.Create(Fn,fmOpenWrite) do
begin
Size:=ns;
Result:=True;
free;
end;
Except
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If TruncFile('C:\Test.Tst',512) then
Showmessage('Fichier mis a la taille de 512 Octets')
else
Showmessage('Erreur lors du changement de la taille du fichier');
end;
Bon Coding ....
ManChesTer.
cs_LuckyLuck
Messages postés
59
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
5 juillet 2005
22 mars 2005 à 19:22
22 mars 2005 à 19:22
merci bcp !