Supprimer des données d'un fichierRésolu

Question

Bonjour à tous.


Pour ajouter des données dans un fichier, on a "write", "append", etc... Mais pour supprimer des données sans avoir recours à un autre fichier (fichier A > read > write fichier B en supprimant données en cours de route), est-ce que c'est possible ?


Merci d'avance.

Cirec · Accepted Answer

Salut,

ce code retire 20 octets de la fin du fichier (Project1.data)

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TFileStream.Create('project1.data', fmOpenReadWrite) do
  try
    Size := Size - 20;
  finally
    Free;
  end;
end;

y'a pas plus simple 

 
@+
Cirec

<hr siz="" />

Francky23012301 · Answer

Salut,

Non pas de fonction toute faite pour supprimer des données, mais faire une telle fonction est possible et simple à faire (TStringList est un moyen d'y parvenir).

ytillang30400 · Answer

Je te remercie de ta réponse. Mais il s'agit de données binaires ajoutées en fin de fichier. Quelques données d'une vingtaine de bits en fin de fichier que j'aimerais supprimer sans y mettre des espaces vides à la place, mais en rediminuant la taille du fichier. Et sans créer un autre en remplacement car trop long pour transférer un fichier volumineux.

ytillang30400 · Answer

SUPER MERCI! Je croyais que cette propriété était en lecture seule, ça m'apprendra...

Supprimer des données d'un fichier

4 réponses

Votre réponse

Discussions similaires