Erstellen eines Kreuzwortraetsel

[Manfred Welper]

Hallo Leute
Komme einfach nicht weiter.
Suche Hilfe bzw. Algorithmen für das Erstellen eines
Kreuzworträtsels in Delphi 6.
Wer kann helfen ?
Manfred Welper
Berlin-Weissensee

[Hagen Reddmann]

Aus dem stegreif würde ich ertsmal eine Datenbank mit all den möglichen Wörtern und deren "Fragen" erzeugen. Diese DB sollte nach Länge der Wörter und alphabethisch sortiert sein. Dann muß der Algo. zur Erzeugung des Kreuzworträtsels her. Mein erster Versuch wäre einfach das Gitter mit zufälligen Worten zu füllen. Man fängt dazu mit den langen Wörtern an und füllt dann nacheinander die Zellen mit Wörtern aus. Angenommen man wählt einen Zellenblock mit 5 Buchstaben. der 2. und 4. Buchstabe dieses Blockes ist schon durch andere Wörter belegt. Nun sucht man mit mit dieser Maske ?A?B? ein Wort aus der DB heraus und trägt es ein. Zum Schluß sollte nur eine bestimmte Anzahl von "Löchern" entstehen. Sollte der Algo totlaufen oder aber bestimmte Forderungen nicht erfüllt sein (Anzahl der Löcher) dann verwirft man diesen Trial und fängt von vorne an.<br> Oder man implentiert ein Backtracking, d.h. sollte z.b. für die obige Kombination KEIN Wort gefunden werden muß eines der beiden Wörter die A oder B enthlten durch ein anders ausgetauscht werden das KEIN A oder B enthält. Danach sucht man erneut das 5'er Wort mit nun andere Maske.<br>
Wird die DB noch zusätzlich mit Themengebieten gefüllt, also jedes Wort bekommt eine Einordnung nach Themengebiet dann kann man sogat noch den Typ des Rätsels bestimmen.<br>

Gruß Hage