Parcours des chaînes d'une liste

Remonter à Comment construire des applications Fiches VCL

Cette application VCL crée d'abord une liste de chaînes. Elle parcourt ensuite les chaînes, en transformant tous les caractères en majuscules. Elle est constituée des étapes suivantes :

1. Créer une fiche VCL avec des boutons et des contrôles TListBox.
2. Ecrire du code pour créer une liste de chaînes et y ajouter des chaînes.
3. Ecrire du code pour parcourir la liste de chaînes afin de traiter les caractères des chaînes.
4. Exécuter l'application.

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

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 est affiché.
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 Add pour les propriétés Caption et Name.
5. Sélectionnez Button2 sur la fiche.
6. Dans l'inspecteur d'objets, entrez ToUpper pour les propriétés Caption et Name.

Pour créer une liste de chaînes et y ajouter des chaînes

1. Sélectionnez le bouton Add 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 dans le bloc du gestionnaire d'événement TForm1.AddClick (Delphi) ou TForm1::AddClick (C++).
3. Pour Delphi, placez le curseur devant le mot réservé begin, puis appuyez sur la touche ENTREE. Cette action crée une nouvelle ligne au-dessus du bloc de code.
4. Pour Delphi, insérez le curseur sur la nouvelle ligne créée et tapez la déclaration de variable suivante :

var
  MyList: TStringList;

5. Insérez le curseur dans le bloc de code et tapez le code suivant :

MyList := TStringList.Create;
    try
      with MyList do
      begin
        Add('Mice');
        Add('Goats');
        Add('Elephants');
        Add('Birds');
        ListBox1.Items.AddStrings(MyList);
      end;
    finally
      MyList.Free;
    end;

TStringList *MyList = new TStringList();
try {
  MyList->Add("Mice");
  MyList->Add("Goats");
  MyList->Add("Elephants");
  MyList->Add("Birds");
  ListBox1->Items->AddStrings( MyList );
} __finally {
  MyList->Free();
}

Pour transformer tous les caractères en majuscules

1. Sélectionnez le bouton ToUpper 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 dans le bloc du gestionnaire d'événement TForm1.ToUpperClick (Delphi) ou TForm1::ToUpperClick (C++).
3. Pour Delphi, placez le curseur devant 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, insérez le curseur sur la nouvelle ligne créée et tapez la déclaration de variable suivante :

var
 Index: Integer;

5. Insérez le curseur dans le bloc de code et tapez le code suivant :

for Index := 0 to ListBox1.Items.Count - 1 do
    ListBox1.Items[Index] := UpperCase(ListBox1.Items[Index]);

for( int i = 0; i < ListBox1->Items->Count; i++ ) {
  ListBox1->Items[i] = UpperCase( ListBox1->Items[i] );
}

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 Add. Les chaînes 'Mice', 'Goats', 'Elephants' et 'Birds' s'affichent dans l'ordre indiqué.
3. Cliquez sur le bouton ToUpper. Les caractères de la chaîne s'affichent en majuscules.

Voir aussi

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