Combinaisons possibles de chaines

Bonjour,
J'ai un nombre N de chaine de cacatères dont je doit trouver toutes les combinaisons possibles (2N-1). par exemple :

Pour C1, C2, C3 je devrais trouver :
C1C2, C1C3, C2C3, C1C2C3.

Pour X1, X2, X3, X4 je devrais trouver :
X1X2, X1X3, X1X4, X2X3, X2X4, X3X4, X1X2X3, X1X2X4, X1X3X4, X2X3X4, X1X2X3X4

J'ai essayé un procedure récursive mais le résultat n'est pas bon au dela de 3 chaines. (J'utilise delphi 7 et un tableau pour contenir les chaines).

SVP aidez-moi.

Le mieux est de chercher un peu dans le forum, la génération de combinaisons et de permutations est un sujet assez courant.

Des solutions peuvent être trouvées ici :

http://www.developpez.net/forums/sho...d.php?t=228599

Afin de gagner en place et en temps d'execution je te conseil de ne generer que des listes (ou des tables) d'entiers allant de de 1 à N et de stocker des bouts de chaine dans un tableau à N cases, ensuite, à l'aide d'une fonction ou procedure (au choix c'est la meme chose alors osef) tu lis tes chaines en parcourant le tableau aux coordonées dictées par ta chaine :
exemple

Code:

---

1 2 3 4 5 6

1|A 7|D' 13|Mélancolique 19|T' 2|Ai 8|Deux 14|Oblique 20|Ta 3|Aile 9|En 15|Oiseau 21|Tire 4|Annoncer 10|Et 16|Petit 22|Toi 5|Bousillé 11|J' 17|Pour 23|Vers 6|CV 12|Le 18|Que 24|Volait

---

Code:

---

[12; 16; 15; 13; 1; 21; 7; 3; 10; 9; 14; 24; 23; 22; 17; 19; 4; 18; 11; 2; 5; 20; 8; 6]

---

Code:

---

Le Petit Oiseau Mélanclolique A Tire D'Aile Et En Oblique Volait Vers Toi Pour T'Annoncer Que J'Ai Bousillé Ta Deux CV

---