Ajout et tri 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 Button, Label et TListBox.
2. Ecrire du code pour ajouter et trier des chaînes.
3. Exécuter l'application.

Pour créer une fiche VCL avec des contrôles Button, Label 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 apparaît.
2. A partir de la catégorie Standard de la palette d'outils, placez un composant TButton, TLabel et TListBox sur la fiche.

Pour écrire la procédure de copie de flux

1. Sélectionnez Button1 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 d'événement TForm1.Button1Click.
3. Pour Delphi, placez le curseur devant le mot réservé begin et appuyez sur la touche ENTREE. Cette action crée une nouvelle ligne au-dessus du bloc de code.
4. Tapez les déclarations de variables suivantes :

Delphi:

var
  MyList: TStringList;
  Index: Integer;

C++:

TStringList *MyList;
int Index;

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

Delphi:

MyList := TStringList.Create;
try
  MyList.Add('Animals');
  MyList.Add('Flowers');

  MyList.Add('Cars');

  MyList.Sort;
    if MyList.Find('Flowers', Index) then
    begin
      ListBox1.Items.AddStrings(MyList);
      Label1.Caption := 'Flowers has an index value of ' + IntToStr(Index);
    end;
finally
    MyList.Free;
end;

C++:

MyList = new TStringList();
try {
  MyList->Add( "Animals" );
  MyList->Add( "Flowers" );
  MyList->Add( "Cars" );
  MyList->Sort();
  if( MyList->Find( "Flowers", Index ) {
    ListBox1->Items->AddStrings( MyList );
    Label1->Caption = "Flowers has an index of " +
                        IntToStr( Index );
  }
} __finally {
  MyList->Free();
}

Remarque : Find ne fonctionne que sur des listes triées. Utilisez IndexOf sur les listes non triées.

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 composant Button. Les chaînes 'Animals', 'Cars' et 'Flowers' s'affichent dans l'ordre alphabétique dans une liste de la zone de liste. Le libellé Label affiche la chaîne de message :

   Flowers has an index value of 2.

Voir aussi

• Présentation de la VCL