Discussion :

[chuiben]

tout d'abord bonjour a tous !
(voila c'est fait)

voila mon probleme et je vais essayer d'etre le plus clair possible:

je dispose d'un package de creation de liste generique
avec une procedure sympa de suppresion de la cellule pour un type item,
(val : item)
j'ai un package "xxxxxxxxx" permettant d'assigner mon champ item
a un type record
"genre type XXXXX is record
nom : string bla bla
prenom : string bla bla
age bla bla bla
end record"

un merveilleux package liste_xxxxxxx
pour creer ma liste de xxxxxxxxx !

fier de bon bel avancement je m'apercoit que quand je supprime,
si je veux le faire en fonction d'un des champs du record
par ex: nom ou prenom (pour faire original)
il en fait fi !
et je pense savoir pourquoi...
c'est parce que il faudrait demander l'ensemble du champ pour qu'il le reconnaisse (en gros val)
mais moi je ne veux pas demander a l'utilisateur de selectionner quelqu'un
par l'ensemble de ses attributs!
HELPPP
(c'est clair ou vous voulez le code?)
merci d'avance

[Celelibi]

Du code ça aiderait bien parceque j'ai pas tout compris.

[chuiben]

desolé du dérangement je viens de résoudre mon probleme il me fallait une fonction de comparaison : pour ceux qui serait du coup interessé :
(et qui aurait compris!)

dsl ô admin émérite
listes.adb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   -----------------------------------------------
   -- suppression
   -----------------------------------------------
   procedure suppression (
         L   : in out Liste; 
         Val :        Item   ) is 
 
   begin
      if L /= null then
         if Comp(L.Val,Val) then
            l := l.suiv;
         else
            suppression(L.Suiv,Val);
         end if;
      end if;
   end ;

listes.ads

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 with function Comp (
         Val  : in     Item; 
         Val2 : in     Item  ) 
     return Boolean;

representants.adb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
   ------------------------------------------
   -- fonction de comparaison du champ nom
   ------------------------------------------
   function Comp_rep (
         C  :    in Representant; 
         C2 :    in Representant  ) 
     return Boolean is 
   begin
 
      if C.Nom = C2.Nom
            then
         return True;
      else
         return False;
      end if;
   end;

liste_rep.adb

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
package Liste_Representant is new Listes(Representant,comp_rep);
use Liste_Representant;