Suppression de chaînes
Remonter à Comment construire des applications Fiches VCL
La création de cette application VCL comprend les étapes suivantes :
- Créer une fiche VCL avec des contrôles de boutons et de boîtes liste.
- Ecrire du code afin d'ajouter des chaînes à une liste.
- Ecrire du code pour supprimer une chaîne de la liste.
- Exécuter l'application.
Pour créer une fiche VCL avec des contrôles TButton et ListBox
- Choisissez Fichier > Nouveau > Autre > Projets Delphi ou Projets C++Builder et double-cliquez sur l'icône Application Fiches VCL. Le Concepteur de fiches VCL apparaît.
- A partir de la page Standard de la palette d'outils, placez deux composants TButtons et un composant TListBox sur la fiche.
- Sélectionnez Button1 sur la fiche.
- Dans l'inspecteur d'objets, entrez Ajouter pour les propriétés Caption et Name.
- Sélectionnez Button2 sur la fiche.
- Dans l'inspecteur d'objets, entrez Supprimer pour les propriétés Caption et Name.
Pour ajouter des chaînes à une liste
- Sélectionnez le bouton Ajouter sur la fiche.
- Dans l'inspecteur d'objets, double-cliquez sur l'action OnClick de l'onglet Evénements.L'éditeur de code s'affiche, le curseur placé dans le bloc du gestionnaire de l'événement TForm1.AddClick (Delphi) ou TForm1::AddClick (C++).
- Pour Delphi, placez le curseur avant le mot réservé begin, puis appuyez sur la touche Entrée. Cette action crée une nouvelle ligne au-dessus du bloc de code.
- Pour Delphi, placez le curseur sur la nouvelle ligne créée, puis tapez la déclaration de variable suivante :
var MyList: TStringList;
- Pour C++, entrez la déclaration de variable suivante :
TStringList *MyList;
- Placez le curseur dans le bloc de code, puis tapez le code suivant :
MyList := TStringList.Create; try with MyList do begin Add('Souris'); Add('Chèvres'); Add('Eléphants'); Add('Oiseaux'); ListBox1.Items.AddStrings(MyList); end; finally MyList.Free; end;
MyList = new TStringList(); try { MyList->Add( "Souris" ); MyList->Add( "Chèvres" ); MyList->Add( "Eléphants" ); MyList->Add( "Oiseaux" ); ListBox1–>Items->AddStrings( MyList ); } __finally { MyList->Free(); }
Pour supprimer une chaîne de la liste
- Sélectionnez le bouton Supprimer sur la fiche.
- Dans l'inspecteur d'objets, double-cliquez sur l'action OnClick de l'onglet Evénements. L'éditeur de code s'affiche, avec le curseur placé dans le bloc du gestionnaire de l'événement TForm1.DeleteClick (Delphi) ou TForm1::DeleteClick (C++).
- Pour Delphi, placez le curseur avant le mot réservé begin, puis appuyez sur la touche Entrée. Cette action crée une nouvelle ligne au-dessus du bloc de code.
- Pour Delphi, placez le curseur sur la nouvelle ligne créée, puis tapez la déclaration de variable suivante :
var BIndex: Integer;
- Pour C++, entrez la déclaration de variable suivante :
int BIndex;
- Pour Delphi, placez le curseur dans le bloc de code, puis tapez le code suivant :
with ListBox1.Items do begin BIndex := IndexOf('Eléphants'); Delete (BIndex); end;
BIndex = ListBox1–>Items->IndexOf( "Eléphants" ); ListBox1–>Items->Delete( BIndex );
Pour exécuter l'application
- Enregistrez tous les fichiers du projet, puis choisissez Exécuter > Exécuter pour construire et exécuter l'application. La fiche apparaît avec les contrôles.
- Cliquez sur le bouton Ajouter. Les chaînes 'Souris', 'Chèvres', 'Eléphants' et 'Oiseaux' s'affichent dans l'ordre indiqué.
- Cliquez sur le bouton Supprimer. La chaîne 'Eléphants' est supprimée de la liste.