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.