numéro auto

numéro auto - Programmation

Marsh Posté le 10-03-2001 à 07:32:40    

Je voudrais mettre un numéro incrémentable à chaque ouverture de ma fiche.
Dans un fichier ini par exemple.
Comment faire ?????

Reply

Marsh Posté le 10-03-2001 à 07:32:40   

Reply

Marsh Posté le 11-03-2001 à 17:53:44    

il me semble que la propriété tag d'un des composants de ton application(Form1 par exemple) pourrait très bien servir, comme confirmation lis l'aide concernant cette propriété.

Reply

Marsh Posté le 12-03-2001 à 10:52:54    

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed