Comment ajouter un élément à l fin un fichier typé sans le lire avant.
Merci d'avance

J'ai trouve
Var
F:file of TRatingPoint;
ActualRating:TRatingPoint;
 
begin
  actualrating.time:=now;
  actualrating.rating:=OwnInfo.rating;
  assignfile(F,Applicationpath+Owninfo.Name+'.rat');
  if fileexists(Applicationpath+Owninfo.Name+'.rat') then reset(f)
    else rewrite(f);
  seek(f,filesize(f));  
  write(f,actualrating);
  closefile(f);
end;

De tete (pas de compilateur sous la main) je dirait mème :

 
Append ouvre le fichier en ajout (je ne sait plus si il authorise à utiliser "seek" par la suite)

 
 
Oui mais append  , c'est pour les fichiers de  texte .