Générateur de Mots Mêlés
Application complète permettant de générer automatiquement des grilles de mots mêlés interactives, avec détection des mots trouvés, surlignage dynamique.



Objectif du programme
L’application génère une grille de 15 × 15 lettres contenant entre 15 et 30 mots placés aléatoirement dans toutes les directions possibles :
Horizontal (gauche → droite / droite → gauche)
Vertical (haut → bas / bas → haut)
Diagonales (4 directions)
L’utilisateur peut ensuite sélectionner les mots avec la souris, et le programme détecte automatiquement si le mot sélectionné correspond à un mot caché.
Placement des mots
La procédure PlaceWords sélectionne aléatoirement un nombre de mots (15 à 30), puis tente de les placer dans la grille.
Algorithme de placement
Pour chaque mot :
Choisir une direction parmi 8 possibles
Choisir une position de départ aléatoire
Vérifier si le mot peut être placé (CanPlaceAt)
Si oui : écrire le mot dans la grille (CommitWord)
Les mots plus longs sont placés en priorité pour maximiser les chances de réussite.
Remplissage de la grille
Une fois tous les mots placés, les cases vides sont remplies avec des lettres aléatoires
Fonctionnalités principales
Fonction | Description |
|---|---|
Génération aléatoire | Grille 15×15 avec 15 - 30 mots |
8 directions | Horizontal, Vertical, Diagonales |
Surlignage dynamique | Mots trouvés colorés automatiquement |
Détection intelligente | Sélection libre, normalisation automatique |
Interface moderne | Rendu GDI+ haute qualité |
Liste des mots | Affichage avec pastilles colorées |
Interaction fluide | Sélection à la souris |
Version recommandée
Delphi 11 / 12 / 13
VCL classique (TPaintBox, TPanel, TButton, TCheckBox)
GDI+ (Winapi.GDIPAPI, Winapi.GDIPOBJ)
TStringList, TList<T>, Generics.Collections
System.Math, System.Types
UnicodeString (Delphi moderne)
Liens de téléchargement : WordSearchGenerator.zip
Un petit clic (J'aime) qui fait plaisir !
Commentaires
Aucun commentaire pour le moment. Soyez le premier à commenter !
Vous devez vous connecter pour commenter.