ListBox,CheckBox et List numéroté !

1 pièce(s) jointe(s)

Salem

Bonsoir

d abord je veux vous expliqué ce que je veux réaliser :

je veux faire les rendez-vous du jour dans un cabinet avec le delphi sachant que l'image est faite par le VisualBasic.
//voir l'image dans la pièce jointe pour mieux comprendre

je veux que ma fiche contenir une liste numéroté ou je peux saisir les noms de mes patients, les checkBox ou je peux introduire l'heure d'arrivée et comme je coche dans le carré le nom du patient avec l'heure d'arrivée apparait dans la listBox et comme je décoche le nom et l'heure n'apparait plus dans la listBox et il sera supprimé d'une manière automatique

mes questions sont :

1-est-ce que ça existe en delphi7 une liste numéroté ou je peux ecrire les noms de mes patients par exemple !

2-j'ai mis dans ma form les composantes suivantes :
checkBox1
checkBox2
listBox1
et j'ai mis enfin un edit1 à fin de saisir le nom du patient comme j'ai pas trouvé une manière d'utilisé une liste numéroté
et j'ai mis comme code dans checkBox1
Code:

1 2 3 4 5 6 7 8 9 10 11 if checkbox1.Checked then begin Listbox1.items.add (checkBox1.caption); Listbox1.items.add (':'); Listbox1.items.add (edit1.text); end // le problème se pose ici c'est que à l'exécution il vas me donné le caption dans une ligne et les deux point dans une autre ligne et le edit dans une autre ligne et moi je veux qu'il m'affiche toutes c'est trois à une seul ligne comme il apparait dans l'image else Listbox1.items.clear ; // et ici il supprime tout ce qui a dans la list et moi je veux qu'il supprime seulement les zones que je décoche dans le check box

tu dois ajouter UNE seule ligne, et la supprimer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var
  ligne : string;
  index: Integer;
begin
// le texte
  ligne := CheckBox1.Caption + ' : ' + Edit1.Text; 
// sa position dans la liste
  index := ListBox1.Items.IndexOf(ligne);
// si coché
  if CheckBox1.Checked then
  begin
    if index < 0 then // si pas déjà présent
     ListBox1.Items.Add(ligne); // ajouter
  end else begin
   if index >= 0 then // si présent
    ListBox1.Items.Delete(Index); // supprimer
  end;

Je vous remercie infiniment

c'est bon le problème est résolu (f)

:ccool: