Comment ajouter un élément à un fichier typé - Delphi/Pascal - Programmation
Marsh Posté le 16-05-2006 à 19:40:24
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;
Marsh Posté le 19-05-2006 à 22:23:32
De tete (pas de compilateur sous la main) je dirait mème :
endemyon a écrit : Var |
Append ouvre le fichier en ajout (je ne sait plus si il authorise à utiliser "seek" par la suite)
Marsh Posté le 20-05-2006 à 15:43:53
el zozo a écrit : De tete (pas de compilateur sous la main) je dirait mème : |
Oui mais append , c'est pour les fichiers de texte .
Marsh Posté le 16-05-2006 à 18:21:37
Comment ajouter un élément à l fin un fichier typé sans le lire avant.
Merci d'avance
---------------
Mes photos : http://500px.com/endemyon