Abgesehn davon, daß die hälfte der Variablendefinitionen und der verwendeten Funktionen fehlt.
Wo genau hängt es denn, bzw. was passiert oder nicht?
Dann solltest du mal in den Projektoptionen die Indexprüfung aktivieren, denn dann würde dir auffallen, daß bei den letzten beiden Schleifen etwas nicht stimmen kann.
Zitat:
Delphi-Quellcode:
for y := Kaestchen downto 0 do // die nächste Dame und speichere die Position.
for x := 0 to Kaestchen do
Vorallem da du das Falschgemachte schonmal richtig gemacht hattest.
Zitat:
Delphi-Quellcode:
for y := 0 to Kaestchen-1 do
for x := 0 to Kaestchen-1 do
Tipp: Von wo bis wo gehen deine Arrays? (egal ob jetzt vor- oder rückwärts)
Zitat:
if found = false then begin //Wenn keine neue position gefunden werden kann suche
Und dem, der das mit diesem
if ... = False then
oder
if ... = True then
beibringt, dem sollte man mal auf die Finger hauen.
Wobei es komisch ist, denn auch das war schonmal richtig.
Zitat:
if found then
Oder halt
if not found then
.
