Comment afficher le compte de count sur mon programme delphi

BenXbox Messages postés 210 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 14 août 2007 - 4 févr. 2004 à 23:12
BenXbox Messages postés 210 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 14 août 2007 - 5 févr. 2004 à 09:13
Je vous explique j'ai créer un programme pour moi pour classer mes divx, et je voudrais que mon programme affiche le nombre de films sachant que mes films sont enregistrer dans un fichier ini de cette manière :

[DivX]
Count=23
Nom1=Yes Union Tour - 1991 (Vcd 2Cd)
Genre1=Concert Yes Union Tour - 1991
Durée1=1 Heure 59 Minutes
Photo1=http://homepage.ntlworld.com/j.kerr/images/Union.jpg
Synopsis1=Concert Yes Union Tour - 1991
Nom2=Fast And Furious 2
Genre2=Film américain (2002). Action.
Durée2=1 Heure 45 Minutes
Photo2=Http://a69.g.akamai.net/7/69/10688/v1/img5.allocine.fr/acmedia/medias/nmedia/18/35/08/06/af.jpg
Synopsis2=Brian O'Conner,
Nom3=Bruce Tout Puissant
Genre3=Film américain (2003). Comédie, Fantastique.
Durée3=1 Heure 41 Minutes
Photo3=Http://a69.g.akamai.net/7/69/10688/v1/img5.allocine.fr/acmedia/medias/nmedia/18/35/07/45/affiche.jpg
Synopsis3=Bruce Nolan,

Voila, Merci D'Avance

3 réponses

BenXbox Messages postés 210 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 14 août 2007
4 févr. 2004 à 23:20
Petite précision mes films sont afficher dans une Listebox.
0
samlerouge Messages postés 7 Date d'inscription lundi 17 novembre 2003 Statut Membre Dernière intervention 13 février 2004
5 févr. 2004 à 00:04
Hello,
Je te prosose une solution qui consiste a lire le fichier ini puis a affecter le contenu du paramètre voulu ici count dans une variable.

procedure LitFichierIni; // lecture dans le fichier ini
  var
    FichierIni: TIniFile;
    begin
   
 { Création de la variable de type TIniFile, avec le chemin : }
     FichierIni:= TIniFile.Create('./options.ini');
     { Création de la variable iCompteurDivx}
     iCompteurDivx:=    FichierIni.ReadInteger('divx', count );

     { On libère la variable de type TIniFile : }
        FichierIni.Free;
end;


Sur la fiche, tu peux mettre un composant edit ou label. Puis il suffit d'affecter la variable au composant comme ci-dessous.

  edtCompteurDivx.text :=IntToStr(iCompteurDivx).


8-) Bon courage pour la suite.

Ps: Je pense qu'il faudrait mieux que tu te fasses un base de données avec Access par exemple ou autres cela te facilitera la gestion de tes DIVX.
0
BenXbox Messages postés 210 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 14 août 2007
5 févr. 2004 à 09:13
Bas la je vais en cours, je te dirais si sa marche ce soir.
Merci.
0
Rejoignez-nous