Réponse acceptée !
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