Suppression de chaînes

Remonter à Comment construire des applications Fiches VCL

La création de cette application VCL comprend les étapes suivantes :

1. Créer une fiche VCL avec des contrôles de boutons et de boîtes liste.
2. Ecrire du code afin d'ajouter des chaînes à une liste.
3. Ecrire du code pour supprimer une chaîne de la liste.
4. Exécuter l'application.

Pour créer une fiche VCL avec des contrôles TButton et ListBox

1. 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.
2. A partir de la page Standard de la palette d'outils, placez deux composants TButtons et un composant TListBox sur la fiche.
3. Sélectionnez Button1 sur la fiche.
4. Dans l'inspecteur d'objets, entrez Ajouter pour les propriétés Caption et Name.
5. Sélectionnez Button2 sur la fiche.
6. Dans l'inspecteur d'objets, entrez Supprimer pour les propriétés Caption et Name.

Pour ajouter des chaînes à une liste

1. Sélectionnez le bouton Ajouter sur la fiche.
2. 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++).
3. 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.
4. 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;

5. 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

1. Sélectionnez le bouton Supprimer sur la fiche.
2. 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++).
3. 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.
4. 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;

5. 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

1. 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.
2. Cliquez sur le bouton Ajouter. Les chaînes 'Souris', 'Chèvres', 'Eléphants' et 'Oiseaux' s'affichent dans l'ordre indiqué.
3. Cliquez sur le bouton Supprimer. La chaîne 'Eléphants' est supprimée de la liste.

Voir aussi

• Présentation de la VCL
• Construction d'une application Fiches VCL