Télécharger le zip
aaah pas mal du tout, logiciel pouvant etre trés utile.par contre juste une remarque, penser a optimiser ce genre de code : TabBiblio[IndexTab[listbox.itemindex]].supprime:=''; TabBiblio[IndexTab[listbox.itemindex]].code:= MakeCode(zs_num.Text); TabBiblio[IndexTab[listbox.itemindex]].titre:=zs_titre.Text; TabBiblio[IndexTab[listbox.itemindex]].nom:=zs_nom.Text; TabBiblio[IndexTab[listbox.itemindex]].prenom:=zs_prenom.Text; TabBiblio[IndexTab[listbox.itemindex]].date_sortie:=datetostr(zs_date_sortie.Date); TabBiblio[IndexTab[listbox.itemindex]].date_retour:=datetostr(zs_date_retour.Date); TabBiblio[IndexTab[listbox.itemindex]].rendu:=zs_retour.Checked;en :with TabBiblio[IndexTab[listbox.itemindex]] do begin supprime := ''; code := MakeCode(zs_num.Text); titre := zs_titre.Text; nom := zs_nom.Text; prenom := zs_prenom.Text; date_sortie := datetostr(zs_date_sortie.Date); date_retour := datetostr(zs_date_retour.Date); rendu := zs_retour.Checked;end;ah et surtout, ne pas oublier d'indenter correctement le code! ça le rend plus lisible.a quand une version pour les videoteque ? ^^
on pourrait meme ecrire une fonction pour le type Biblio :function Biblio(const sup,cod,tit,nom,pre : string; const dso,dre : tdate; const ren : boolean) : TBiblio;begin with result do begin supprime := sup; code := MakeCode(cod); titre := tit; nom := nom; prenom := prenom; date_sortie := datetostr(dso); date_retour := datetostr(dre); rendu := ren; end;end;ce qui simplifierais les declaration par exemple :TabBiblio[IndexTab[listbox.itemindex]] := Biblio('', zs_num.text, zs_titre.text, zs_nom.text, zs_prenom.text, zs_date_sortie.date, zs_date_retour.date, zs_retour);
Salut,Bien vu f0xi,j'y avais pas pensé d'en faire une fonction, effectivement ça va nettement alleger le code.Bravo@+Cirec
Salut, c'est vrai que ca allège le code. pour la vidéothèque, ya pas grand chose a modifié, je suis en train de faire la meme chose pour faire un répertoire d'amis. pour les commentaires du code,c'est vrai que je m'y sui pas trop attardé,mais je pense que suis j'avais su,j'aurais pas fait cette appli avec un fichier, mais avec une bdd genre access ou sql serveur,mais je vais pas la refaire, elle est fini!@++Guillaume
Salut,Mustaph_a pose ta question sur le forum ici tu n'auras pas de réponse.Le forum est la pour poser des questions@+Cirec
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 971 membres 231 nouveaux aujourd'hui 15 441 membres club