Création 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 TButton et TComboBox.
2. Ecrire le code de création des chaînes dans le gestionnaire OnClick de TButton.
3. Exécuter l'application.

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

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

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, le curseur placé dans le bloc du gestionnaire de l'événement TForm1.Button1Click (Delphi) ou TForm1::Button1Click (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 les déclarations de variables suivantes :

var
  StringList: TStrings;

Pour C++, entrez les déclarations de variables suivantes :

TStrings *StringList;

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

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 '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.'
3. 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.

Voir aussi

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