GESTION DE BIBLIOTHÈQUE
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
12 févr. 2006 à 22:53
Abachayib Messages postés 1 Date d'inscription mardi 1 janvier 2013 Statut Membre Dernière intervention 23 mars 2013 - 23 mars 2013 à 04:29
Abachayib Messages postés 1 Date d'inscription mardi 1 janvier 2013 Statut Membre Dernière intervention 23 mars 2013 - 23 mars 2013 à 04:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/35963-gestion-de-bibliotheque
https://codes-sources.commentcamarche.net/source/35963-gestion-de-bibliotheque
23 mars 2013 à 04:29
29 mars 2006 à 10:53
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
13 févr. 2006 à 15:36
@++
Guillaume
13 févr. 2006 à 02:35
Bien vu f0xi,
j'y avais pas pensé d'en faire une fonction, effectivement ça va nettement alleger le code.
Bravo
@+
Cirec
12 févr. 2006 à 23:01
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);
12 févr. 2006 à 22:53
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 ? ^^