Je viens de rencontrer un problème bizarre dans mon programme de création de fichier : j'ai écrit
Pouvez-vous me dire où se trouve la faute ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 type tfiches=array[1..N] of rec var fiches:tfiches; while not eof(f) do begin inc(i); read(f,fiches[i]); end;
Partager