Bonsoir à toutes et à tous,

Avec la procédure Append, il est possible d'ajouter du texte à la fin d'un fichier ... Texte.

Cette procédure ne fonctionne pas pour les autres types de fichiers. Or j'ai un fichier composé d'enregistrements (record) et je voudrais y ajouter toutes les X minutes un nouvel enregistrement sans avoir à ré-enregistrer tout le fichier et que cela fonctionne sous Windows et sous Linux.

Je n'ai pas trouvé de méthodes pour cela (peut-être mal cherché). En existe-t-il ?

J'ai essayé un transtypage :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TVals = record
    A, B: Integer;
  end;
 
var
  Vals: TVals
  F: Text;
...
AssignFile(F, MonFichier);
Append(F);
Write (F, string(Vals.A)+string(Vals.B)); {Plantage}
...
ça compile, mais ça plante à l'exécution. Il faut peut-être que je passe par un buffer ?

Merci de votre aide.

Pierre