Rappel de l'énoncé

L'objectif de ce mini-projet est de vous faire créer une application exploitant les notions que vous venez de découvrir, à savoir :

• Gestion de composants, propriétés et méthodes.
• Utilisation d'une zone d'édition, d'une liste.

Le but de ce projet est, à partir de l'interface que voici, composée d'une liste, d'une zone de saisie et de trois boutons, de permettre les actions mentionnées ci-dessous :

• Ajout de texte dans la liste : pour cela, on entre le texte dans la zone d'édition puis on clique sur le bouton. Le texte est alors ajouté à la liste et la zone de saisie est vidée (le texte y est effacé).
• Effacement de la liste : en cliquant sur le bouton adéquat, le contenu de la liste sera effacé.
• Fermeture de l'application, en cliquant sur 'Quitter'.

• Chaque bouton nécessite une procédure de réponse au clic : une instruction est suffisante pour chacun des 2 boutons 'Effacer la liste' et 'Quitter'.
• Pour l'ajout, vous devez utilisez la méthode 'Add' de la propriété 'Items' de la liste, en transmettant soit une variable chaîne (ce qui allonge la procédure mais est plus simple au début), ou directement transmettre le texte de la zone d'édition.
• Pour effacer le contenu de la zone de saisie, il faut assigner la chaîne vide à la propriété 'Text' de la zone d'édition.

Cette solution ne rentrera pas dans les détails de la création de l'interface, domaine qui doit maintenant vous être familier et qui ne doit pas poser de problème particulier. Voici les propriétés importantes à fixer pour les composants :

Dans la procédure de réponse au clic sur le bouton 'Quitter', on doit faire appel à la méthode 'Close' de la fiche, soit l'unique instruction suivante :

Close;

Dans la procédure de réponse au clic sur le bouton 'Effacer la liste', on doit faire appel à la méthode 'Clear' de la propriété 'Items' du composant 'lbArchives'. Voici donc l'unique instruction à inscrire :

lbArchives.Items.Clear;

Dans la procédure de réponse au clic sur le bouton 'Ajouter', vous devez tout d'abord récupérer la valeur du texte de la zone d'édition, soit 'edPhrase.Text'. Cette valeur sera ensuite transmise en tant que paramètre à la méthode 'Add' de 'Items' de 'lbArchives'. Ensuite, il suffit d'affecter la chaîne vide à 'edPhrase.Text'. Voici une première version, longue, de cette procédure :

procedure TfmPrinc.btAjoutClick(Sender: TObject);
var
  Temp: string;
begin
  Temp := edPhrase.Text;
  lbArchives.Items.Add(Temp);
  edPhrase.Text := '';
end;

et voici la procédure un peu plus courte qui fait la même chose :

procedure TfmPrinc.btAjoutClick(Sender: TObject);
begin
  lbArchives.Items.Add(edPhrase.Text);
  edPhrase.Text := '';
end;

Code source du projet : 02_premiere_liste