 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : numéro auto | |
| ganjahlord | après contrôle mauvaise direction, le tag ne fonctionne qu'en interne et est remis à zéro à chaque inititalisation du prog.
Meilleure solution: Déclarer un type record: type TRec= record tes variables end; Déclarer un fichier: FichConf: file of TRec; Déclarer un de tes records: MonRecConf: TRec; Fonction d'écriture: AssignFile(FichConf,Chemin_fichier); Rewrite(FichConf); try Write(FichConf,MonRecConf) finally CloseFile(FichConf) end; tu peux y ajouter un test pour voir si le fichier existe. Ce doit être fileexist(s), exist(s)file, exist(s) ou quelque chose d'approchant. Fouille dans l'aide. Fonction de lecture: AssignFile(FichConf,Chemin_fichier); reset(FichConf); try if not Eof(FichConf) then Read(FichConf,MonRecConf) finally CloseFile(FichConf) end; Il ne te reste plus qu'à remplir le record dans ton programme et à lancer une première écriture de ton fichier de config sans aucune lecture, après il ne te reste plus qu'à utiliser le tout normalement. Si tu devais modifier la structure de ton fichier de config, n'oublies pas la première écriture. |
| Vue Rapide de la discussion |
|---|
