Création 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 TButton et TComboBox.
- Ecrire le code de création des chaînes dans le gestionnaire OnClick de TButton.
- Exécuter l'application.
Pour créer une fiche VCL avec des contrôles TButton et TComboBox
- 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.
- Sur la page Standard de la palette d'outils, placez un composant TButton, un TLabel et un TComboBox sur la fiche.
Pour écrire la procédure de création de chaîne
- Sélectionnez Button1 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.Button1Click (Delphi) ou TForm1::Button1Click (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 les déclarations de variables suivantes :
var StringList: TStrings;
- Pour C++, entrez les déclarations de variables suivantes :
TStrings *StringList;
- Placez le curseur dans le bloc de code, puis tapez le code suivant :
StringList := TStringList.Create; try with StringList do begin Add('Animaux'); Add('Chats'); Add('Fleurs'); end; with ComboBox1 do begin Width := 210; Items.Assign(StringList); ItemIndex := 0; end; Label1.Caption := 'Fleurs a un indice de ' + IntToStr( StringList->IndexOf( 'Fleurs' ) ); finally StringList.free; end;
StringList = new TStringList(); try { StringList->Add( "Animaux" ); StringList->Add( "Chats" ); StringList->Add( "Fleurs" ); ComboBox1–>Width = 210; ComboBox1–>Items->Assign( StringList ); ComboBox1–>ItemIndex = 0; Label1–>Caption = "Fleurs a un indice de " + IntToStr( StringList->IndexOf( "Fleurs" ) ); } __finally { StringList->Free(); }
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 composant Button. Les chaînes 'Animaux', 'Voitures' et 'Fleurs' s'affichent dans l'ordre alphabétique dans une liste de la boîte liste. Le libellé affiche le message : 'Les fleurs ont l'indice 2.'
- Dans la boîte à options, cliquez sur la flèche pour développer la liste déroulante. Les chaînes ajoutées au gestionnaire d'événement TButton s'affichent.