affichage d'après un fichier

Question

bjr,
j'ai un fichier repertoire qui contient nom,pr&#233;nom....
en cliquant sur le bouton afficher,toutes l&#233; donn&#233;es s'affichent dans un listbox.
mais je n'arrive pas a faire que,sur le listboxClick, les donn&#233;es se r&#233;affichent dans la zone de saisie.
comment faire?

jlen100 · Answer

salut,

si ta zone de saisie est un Tedit

on affiche dans edit1.text le string contenu dans l'item point&#233; par itemindex:

Edit1.text:=listbox1.items[listbox1.itemIndex];

@+

jlen

guigui265 · Answer

je fait quelque chose dans ce style ,mais voici un morceau de ma proc&#233;dure :

a:=0;
while a<filesize(fbiblio) do
   begin
   seek(fbiblio,a);
   read(fbiblio,xbiblio);
a:=a+1,
zs_num.text:=xbiblio.code;
zs_titre.text:=xbiblio.titre;
zs_nom.text:=xbiblio.nom;
zs_prenom.text:=xbiblio.prenom;
zs_date_sortie:=strtodate(xbiblio.date_sortie);
if xbiblio.rendu='non rendu' then
   zs_retour.checked:=false
else
   zs_retour.checked:=true;
end;

Lorsque je clic sur un des item de la listbox, je voudrai que les info du fichier se mettent dans les zones de saisie Tedit, or dans ce que tu me dit,comment afficher toutes les infos dans sa propre zone de saisie? et est ce que ma proc&#233;dure est correcte?
merci

jlen100 · Answer

je ne comprends pas .

 Que contient ta listbox? Parce que dans le code que tu donnes je ne la trouve pas

tu charges un fichier  mais &#224; chaque lecture tu surcharge tes Tedit mais tu ne conserves pas les enregistrements.

petit d&#233;tails tu peux remplacer:

while a<filesize(fbiblio) do

par

 while not EOF(fbiblio) do

ceci t'&#233;vites de g&#233;rer un pointeur.

@+

jlen

guigui265 · Answer

peut importe ce que contient la listbox puisque seul l'index est important, mais dans la listbox,j'affiche toutes les info du fichier, est dans les zones tedit, je voudrais que ce mettent les informations du tampon  de l'index, de l'item s&#233;l&#233;ctionn&#233;, mais au mieu,je peux afficher le dernier enregistrement meme si ce n'est pas celui s&#233;l&#233;ctionn&#233;.

pour la listbox, dans la proc&#233;dure afficher:
while not eof(fbiblio) do
begin
seek(fbiblio)
read(fbiblio,xbiblio)
listbox.Items.add(xbiblio.code+''+xbiblio.titre......
end

guigui265 · Answer

de plus, pour ne not EoF, je suis de toutes facons oblig&#233; de gard&#233; a:integer car seek(fbiblio,a), je doit le gard&#233; pour me positionner sur le pointeur

jlen100 · Answer

si tu mets toute tes infos dans la listbox alors elle est le miroir de
ton fichier, tu peux donc utiliser l'itemindex de la listbox comme
pointeur sur le fichier

plusieurs solutions:

1) utiliser directement l'itemindex dans le seek et charger tes edit

seek(fbiblio,listbox1.itemIndex);

   read(fbiblio,xbiblio);
zs_num.text:=xbiblio.code;
zs_titre.text:=xbiblio.titre;
zs_nom.text:=xbiblio.nom;
zs_prenom.text:=xbiblio.prenom;
zs_date_sortie:=strtodate(xbiblio.date_sortie);
if xbiblio.rendu='non rendu' then
   zs_retour.checked:=false
else
   zs_retour.checked:=true;
end;

ceci t'oblige &#224; acc&#233;der au HD &#224; chaque fois

autre solution lors du chargement tu  cr&#233;es une Tlist et tu y range tes enregistrements:

type

  PMyList = ^xbiblio;

  xbiblio = record

la tu mets la description

  end;



var



  MyList: TList;

  ARecord: PMyList;

  B: Byte;

  Y: Word;

begin

  MyList := TList.Create;

  try

    while not EOF(fbiblio) do

begin

    New(ARecord);

    MyList.Add(ARecord); {Ajoute l'enregistrement la liste}

    New(ARecord);

    read(fbiblio,ARecord^)

    listbox.Items.add(Arecord^.code+''+Arecord^.titre......

end;

comme les listes ont les m&#234;me items il suffit de faire Mylist.itemindex:=listbox.itemindex;

tu extrais les &#233;l&#233;ments en faisant

zs_num.text:=Arecord^.code ......

@+

jlen

guigui265 · Answer

Voici donc ma proc&#233;dure actuelle apr&#233;s les modif:
Proc&#233;dure tfrm_principal.listboxclick(sender:tobject);
begin
be_modifier.visible:=true;
while not eof(fbiblio) do
seek(fbiblio,listbox.itemindex);
read(fbiblio,xbiblio);
zs_'blabla':=xbiblio.'blabla';.....
end;
end;
 
la logique et le cot&#233; algo me paraissent corrects, et pourtant ,les zones tedit ne prennent tjs pas le xbiblio.'blabla'. je ne pense pas me tromper en disant que tout me parait correct? pourquoi n'y atil pas d'affichage? il manque peut etre un if..then..else apr&#233; le read? je ne sais pas...

jlen100 · Answer

il manque les begin  end;

while not eof(fbiblio) do

begin
seek(fbiblio,listbox.itemindex);
read(fbiblio,xbiblio);
zs_'blabla':=xbiblio.'blabla';.....

end;
sinon seul le seek() est execute



@+

jlen

jlen100 · Answer

en plus pour lire un enregistrement il ne faut pas faire while not
EOF.. qui oblige le programme &#224; lire le fichier jusqu'&#224; la fin

il faut juste converser  

seek(fbiblio,listbox.itemindex);
read(fbiblio,xbiblio);
zs_'blabla':=xbiblio.'blabla';.....

explications

le seek positionne le fichier sur l'enregistrement &#224; lire et read le lit.



@+

jlen

guigui265 · Answer

pour le begin,javais juste oubli&#233; de l'&#233;crir sur le forum,il est dans mon programme.
et en supprimant le while, ce que je voulais que fasse la proc&#233;dure est fait, c'est parfait,je te remerci.
maintenant,j'ai un autre probleme, j'avais pos&#233; la question sur le forum,mais je n'ai pas eu de r&#233;ponse,peut etre peux tu m'aider:
voila,donc comme tu le sais mtnt,j'ai un fichier fbiblio de type biblio, j'ai plusieus boutons Ajouter, Afficher, modifier...
sur le click de ajouter, l'ajout se fait correctement, mais j'aimerais que l'ajout, ou l'affichage, se fasse tri&#233; par odre alphab&#233;tique sur le titre: voici ma structure:
biblio:record
code:string[];
titre:string[];
nom:string[]....

jlen100 · Answer

le probleme  c'est que ton fichier est s&#233;quenciel il faudra donc
que tu ajoutes un index (N&#176; d'enregistrement ) &#224; ton record qui gardera
sa position dans le fichier

ensuite tu mets le titre en premier dans l'item de la listbox et tu
mets la propri&#233;t&#233; "sorted" de la listbox &#224; true elle triera
automatiquement par ordre alphab&#233;tique

pour afficher un &#233;l&#233;ment tu r&#233;cup&#232;res l'index pour recharger l'enregistrement.

@+

jlen

guigui265 · Answer

en fait, j'ai essay&#233; , en changeant la position du titre dans l'affichagedu list box, et en mettant sorted a true, et le tri est bon, j'espere que cela ne g&#233;nere pas de bug due au fichie seq, mais en tout cas,je te remerci,je pense qe pour ce matin,j'ai de quoi fignol&#233; tout ca!
merci
@++
guigui265

jlen100 · Answer

le probleme c'est que tu n'as plus directement  la relation itemindex et seek;

une autre solution pour l'affichage dans les Tedit est d'extraire les
donn&#233;es de l'item de la listbox (en utilisant des s&#233;parateurs et la
fonction Pos());

@+

jlen

guigui265 · Answer

enfin,il y a juste un probleme, c'est que lorsque l'on affiche tri&#233;, sur le clic d'un item, les zones de text qui s'affichent ne sont plus celle voulues puisque l'on tri sur le nom,pas sur le num&#233;ro!!
c'&#233;tait pr&#233;visible...

jlen100 · Answer

c'est ce que je te disais dans le post pr&#233;d&#233;dent

@+

jlen

Cirec · Answer

Salut,
pour r&#233;soudre ton probl&#232;me d'index essaye ceci :

procedure TForm1.Button4Click(Sender: TObject);
  Function AddObject(s: String):TObject;
  Begin
    Result :=  TObject(LongInt(s));
   End ;
begin
  ListBox1.Items.AddObject('TestItem', AddObject('Position 2')); // pour enregistrer la position directement dans l'item mais il reste invisible &#224; l'utilisateur
end;



procedure TForm1.ListBox1Click(Sender: TObject);
Const Txt  = '%s  %s';
begin  // et pour r&#233;cup&#233;rer la position
 ShowMessage(Format(Txt, [ListBox1.items[ListBox1.itemindex], String(ListBox1.items.objects[ListBox1.itemindex])]));
end;

@+
Cirec

guigui265 · Answer

je ne comprend pas du tout comment ce servir de cela, et a quoi correspond le bouton4

Cirec · Answer

Bon,
le bouton 4 il est juste l&#224; pour tester il me sert &#224; ajouter un Item dans la listBox 


au lieu de faire LisBox1.Items.add(Arecord.......
 tu fait 
procedure TForm1.Button4Click(Sender: TObject); // le nom de la procedure n'est pas important 
  Function AddObject(s: String):TObject;  // AddObject est une sous proc&#233;dure qui te permet d'ajouter une information suppl&#233;mentaire &#224; l'Item
  Begin
    Result :=  TObject(LongInt(s));
   End ;
begin
  ListBox1.Items.AddObject('TestItem ', AddObject('Position 2')); // et ici c'est la combinaison des deux 
end;

TestItem &#233;tant le nom que tu d&#233;sires voir affich&#233; dans la ListBox et &#224; la place de Position 2  tu mets la position exacte dans le fichier biblio cette fameuse position qui ne correspondais plus apr&#232;s un trie l&#224; elle sera toujours correcte

procedure TForm1.ListBox1Click(Sender: TObject); // et celle ci te permet de r&#233;cuperer les informations &#224; chaque clique sur un Item
Const Txt  = '%s  %s';
begin  // et pour r&#233;cup&#233;rer la position
 ShowMessage(Format(Txt, [ListBox1.items[ListBox1.itemindex], String(ListBox1.items.objects[ListBox1.itemindex])]));
end;

en Bleu &#231;a te donne le nom de l'Item 
et en rouge pour r&#233;cuperer les informations suppl&#233;mentaires

@+
Cirec

jlen100 · Answer

bien cirec la solution un objet contenant l'index a chaque item mais je
pense que tu devrais donner un peu plus d'explications &#224; guigui265 sur
la finalit&#233;.

-->guigui265 le bouton et le showmessage ne sont l&#224; que pour le test.



@+

jlen

jlen100 · Answer

-->cirec tu as r&#233;pondu aavant que j'ai eu le temps de poster.

une remarque toutefois dans le cas d'une liste tri&#233;e donn&#233;e par l'aide DELPHI :

Remarque :    Dans le cas
d'une liste tri&#233;e, AddObject d&#233;clenche une exception EListError si la
cha&#238;ne S existe d&#233;j&#224; dans la liste alors que Duplicates a la valeur
dupError. Si Duplicates a la valeur dupIgnore, une tentative d'ajout
d'une cha&#238;ne dupliqu&#233;e provoque le renvoi par la m&#233;thode AddObject de
l'indice de l'entr&#233;e existante.

 il faudra donc g&#233;rer ce genre d'erreur



@+

jlen

Cirec · Answer

@ jlen : 
ah, j'ignorai totalement cette information, bon ce n'est rien d'insurmontable. Comme tu le dis si bien  il faudra g&#233;rer ce genre d'erreur soit m&#234;me 


@ guigui265
dit moi si tu peux t'en sortir avec ces informations suppl&#233;mentaires o&#249; si c'est toujours encore insuffisant

@+

Cirec

jlen100 · Answer

encore que dans le cas de guigui le risque est faible:

1) les doublons  n'&#233;tant pas souhaitables il vaut mieux faire un
indexof avant d'ajouter pour v&#233;rifier si l'enregistrement n'existe pas
d&#233;j&#224;;

2) l'ajout se faisant obliagtoirement &#224; le fin du fichier il y aura au
moins le num&#233;ro d'enregistrement qui diff&#233;rera et donc la chaine sera
obligatoirement diff&#233;rente



comme disait ma grand m&#232;re mieux vaut  pr&#233;venir que gu&#233;rir.



@+

jlen

guigui265 · Answer

j'avoue que je suis un peu perdu, mais je bosse dessus a fond
En fait, pour vous &#233;clairer, je suis stagiaire dans une entreprise o&#249; j'ai pas mal 'applicatif &#224; d&#233;velopper, donc une application qui permet de g&#233;rer les livres de leur bibliotheque. donc dans cette appli, je permet de saisir un nouvo livre,de le modifier pour corriger les &#233;ventuelles erreurs et de g&#233;rer le fait que le livre soi pr&#233;t&#233;, en modifiant son statut(rendu ou pas), je permet &#233;galement de faire la liste, de supprimer des items, et c'est donc avec ceci que vient le problemen vu que mon fichier est s&#233;quentiel, lorsque je supprime un enregistremen, l'index d l'item dans le listbox ne correspon plus et le soft n'a plus sa coh&#233;rence,de meme si je

Cirec · Answer

Rien de tel que les m&#233;thodes de grand m&#232;re.
Par contre tu dis l'enregistrement se fait obligatoirement &#224; la fin du fichier mais ce n'est pas forc&#233;ment le cas moi j'ai fait un code similaire il y a longtemps d&#233;j&#224; il me permettait de supprimer un enregistrement  dans le fichier s&#233;quentiel et de le remplacer par un autre peut importe sa position dans le fichier ceci etant dit il est vrai que dans une utilisation normal l'ajout se fait en fin de fichier mais ce n'est pas obligatoire

@+
Cirec

guigui265 · Answer

a, j'oubliai, sur le click du bouton supprimer,en fait,je ne supprime pas physiquement l'enregistrement puisque l'on doit pouvoir lister les enrgistrement supprimer, je change donc l'&#233;tant supprimer comme suit:
seek(fbiblio,listbox.itemindex);
read(fbiblio,xbiblio);
xbiblio.supprime:='supprime';
seek(fbiblio,listbox.itemindex);
write(fbiblio,xbiblio);
le probleme est le meme, tjs un probleme d'index!
comment puis je corriger cette erreur d'un seul coup, simplemen? estce plus facil avec un fichier index&#233;?

guigui265 · Answer

et avec ta method cirec, c'est interessant mais comme je te l'ai dit,je ne supprime pas les enregistrement,je change leur &#233;tat, mais sinon,dans ton cas,il aurai fallu g&#233;rer les espaces libre!

jlen100 · Answer

dans ce cas aussi cela fonctionne il suffit de d&#233;truire
l'enregistrement de la liste avant d'ajouter le nouveau ou de
surcharger simplement l'item et l'enregistrement et on n'a pas besoin
de faire addobject.

guigui--> pour garder la coh&#233;rence de ton fichier dans le cas d'une
suppression tu peux faire ce qu'on appelle une supression logique :
c'est &#224; dire que quand tu supprime un enregistrement tu le marque
simplement comme effac&#233;  dans le fichier et dans tes listes
(quitte &#224; te faire une liste des objet effac&#233;s) et c'est seulement
quand tu quittes le programme (dans l(&#233;v&#232;ment onclose ou onclosequery)
que tu mets &#224; jour ton fichier disque (c'est le principe de la
corbeille de windows) En cas de plantage du systeme tu verifies au
chargement que l'enregistrement est valable.

une autre solution consisterait &#224; recharger tes listes &#224; chauqe
effacement mais ce serait beaucoup moins perforamnt en temps de r&#233;ponses



@+

jlen

Cirec · Answer

en fait c'est le m&#234;me principe dans un fichier s&#233;quentiel tu ne supprimes pas physiquement l'enregistrement mais je le remplacais par : Ex. Nom = 'Guigui265' par Nom = 'X' 
l'espace r&#233;serv&#233; &#224; l'enregistrement est toujours la mais le 'X' m'indique qu'il est disponible pour un nouvel enregistrement donc avant d'ajouter en fin de fichier je comble d'abort les enregistrements qui ont un 'X'

@+
Cirec

guigui265 · Answer

mais dans mon cas,je ne supprime pas en fait, je change l'etat:
tout les champs restent identiques, sauf xbiblio.supprime qui change d'&#233;tat, comme ca, je test sa valeur pour savoir si je doit l afficher ou pas, et j'ai toujours une trace de cet enregistrement pour l&#233; archives, ou je fait le test inverse

Cirec · Answer

C'est ce que je te disait dans mon poste pr&#233;c&#233;dent il n'est pas &#233;ffac&#233; il est juste marqu&#233; comme tel

@+
Cirec

guigui265 · Answer

sur cet meme appli,je veux pouvoir effectuer une recherche o&#249; l'on saisie le num&#233;ro et ou l'on affiche le r&#233;sultat dans la listbox, voici ma proc&#233;dure vite faite:

procedure tfrm_principal.bt_rechClick();
var
trouve:boolean;
b:integer;
begin
listbox.clear;
b:=0;
trouve:=false;
while b<filesize(fbiblio) and trouve=false do
begin
seek(fbiblio,b);
read(fbiblio,xbiblio);
if (zs_num_rech=xbiblio.code) then
trouve:=true;
else;
b:=b+1;
end;
if trouve and (xbiblio.supprime<>'supprime' then
listbox.item.add(xbiblio.code+''+xbiblio.titre);
else
showmessage('pas de titre correspondant');
end.

est ce que ma procedure vous parait correcte et optimis&#233;e?

jlen100 · Answer

ea porcedure me parrait correcte quant au fonctionnement

pour l'optimisation

1) utiliser une listbox juste pour afficher un item est un peu
"sauvage" utilise plutot un Tedit si tu veux compl&#233;ter uns saisie ou
un  TLabel pour juste un affichage

2) plutot que 

    while b<filesize(fbiblio) and trouve=false do 

mets plutot::

 while not EOF(fbiblio) and not trouve do

3) puisque tu lis ton fichier en s&#233;quentiel l'instruction seek est
inutile puisque dans ce cas l'enreistrement lu sera l'enrgistrement N+1;

4) on peut remplacer b:=b+1 par inc(b)

5) si tu as besoin de connaitre le dernier enregistrement lu utilise la fonction filepos(fbiblio)

enfin pour des question de performance et comme tu as charg&#233; ton
fichier au d&#233;but tu devrais te faire des routines de recharche ou
d'extraction de donn&#233;es &#224; partir de la memoire ou utiliser des listes
de reccords (les performamance peuvent varier de 1 &#224; 1000);

@+

jlen

guigui265 · Answer

dacor, je note, mais pour l'affichage dans le listbox, je sais que c'est un peu barbar pour un enregistrement, mais je veu pouvoir b&#233;n&#233;ficier du listbox click, donc si je n'ai pas a r&#233;&#233;crir l&#233; procedure qui lui appartienne, je pense que je gagne en optimisation, non?
@++
guigs

jlen100 · Answer

exact;  encore que tu puisses appler le onclick de la listbox par
le onclick du TEdit tout d&#233;pend du code qui est dedans . D'autre part
si tu as &#224; r&#233;utiliser la listbox cel&#224; t'&#233;viteras d'avoir &#224; la recharger.

Si tu veux optimiser le code tu peux utiliser la listbox par contre si
tu veux optimiser les performances je pense qu'il est pr&#233;f&#233;rable de
passer par un edit ou un label quitte &#224; appler la routine de la listbox
ou la r&#233;&#233;crire partiellement



@+

jlen

Affichage d'après un fichier

34 réponses

Votre réponse

Discussions similaires