Générateur de cadavres exquis

Description

Eh ben voila ma deuxième vraie participation sur le site, un générateur de Cadavres Exquis.
Si vous ne savez pas ce qu'est un cadavre exquis voila une petite explication rapide.

Le "but du jeu" est d'aligner des mots (Sujet + Verbe + Complément) qui n'ont rien en commun pour faire une phrase

le plus souvent assez drôle.
Voila à quoi il faut vous attendre :
- Mon bébé mange une vache à lait.
- Mes bettraves bavarde six pieds sous terre.
- Toto bêle dans le pot de peinture.
- Un mamouth laineux absorbe ses amis.
- Maman pialle sur son perchoir.
- L'arrosoir délire avec une brosse à dents.

Par défaut il y a 109 sujets, 131 verbes et 75 compléments donc seulement 1 070 925 possibilités de phrases

différentes (c'est tout !)... Bien sur, l'utilisateur peut rajouter indéfiniment des sujets, verbes ou compléments

et plus il y a de mots, plus il y a de possibilités de phrases (logique).
En appuyant sur un bouton vous pouvez générer une, dix ou cinq-cents phrases visibles dans un mémo.
Vous avez aussi la possibilité de sauvegarder vos phrases dans un fichier texte, de les imprimer ou de les effacer.

La nouveauté --> Quand il commence à y avoir pas mal de mots, ce n'est pas mal de pouvoir rechercher un mot pour

voir s'il est déjà dans la liste avant de l'ajouter. Et bien voila la recherche "en direct" puisqu'elle se fait

pendant la frappe dans la zone de texte.

Bon amusement à tous et bonnes rigolades devant votre écran...

Source / Exemple :


Le code étant assez long (un peu moins de 500 lignes) regardez le zip...

Conclusion :


Il n'y a pas de bugs connus mais si vous en trouvez faites moi le savoir ou si il y a des modifs à faire dans le code dites le moi.
Tous les commentaires sont les bienvenus.

Merci beaucoup à Cirec qui (une fois de plus [je te dois beaucoup maintenant ;-) ]) m'a corrigé les erreurs de mon code (étant autodidacte, débutant et jeune, je ne connais pas encore toutes les subtilitées de Delphi donc c'est toujour bien d'avoir quelqu'un qui peut corriger les erreurs).

Le code pour la recherche dans une listbox est de ToutSpeed. Merci à toi !

Codes Sources

A voir également