1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

procedure Suche(x,y:integer);
 begin
if (Sackgasse=True) and (Feld[x][y]=True)//Markierung d.Dame
then
begin
dauf[x+y]:=false;    //Dame zurück,Markierung weg
dab[y-x]:=false;     //dauf,dab:Diagonalen 

Feld[x][y]:=False;
end;
erfolg:=false;  //noch keine Dame gesetzt
if (erfolg=false) and (y<8) then
begin
y:=y+1;
d[x]:=y;

erfolg:=True ; //Dame gesetzt
if (dauf[x+y]=True)// Dame bedroht ?
or (dab[y-x]=True)
then

erfolg:=false;

if (erfolg=false) and(y<8)Then //neue Position suchen
begin
Suche (x,y);
end;
if (erfolg=False) and(y=8) AND (x>1) then //Sackgasse,
begin                                     //keine Lösung
Sackgasse:=True;                          //in einer Zeile

 Damen(x-1,d[x-1]);    // hier sollte das "Backtracking
                       // kommen ...

end;                  //d[x-1] Pos. der Dame in Zeile x-1
end;
{******************************************};
If erfolg=true then
begin
dauf[x+y]:=True;      //Dame gesetzt
dab[y-x]:=True;


Feld[x][y]:=True;  //Feld der Dame markiert
ListBox1.Items.Add('Dame:'+IntToStr(x)+'**'+IntToStr(d[x]));
  //Ausgabe
 y:=0;
end;
if x<8 then
Suche  (x+1,y);  //neur Aufruf
end;					

1:
2:
3:

if (Sackgasse=True) and (Feld[x][y]=True)//Markierung d.Dame
then
begin					

1:
2:

if Sackgasse and Feld[x][y] then //Markierung d.Dame
begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Suche(x,y:integer);
...
if (erfolg=false) and(y<8)Then //neue Position suchen
begin
Suche (x,y);
end;
if (erfolg=False) and(y=8) AND (x>1) then //Sackgasse,
begin                                     //keine Lösung
Sackgasse:=True;                          //in einer Zeile

 Damen(x-1,d[x-1]);    // hier sollte das "Backtracking
                       // kommen ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:

unit Unitrec59;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
        procedure Suche(x:integer);
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
 erfolg:boolean;
 d:array[1..8]of integer;
 dauf:array[2..16]of boolean;
 dab:array[-7..7]of boolean;
 vertikal:array[1..8]of boolean;
  y:integer;
 sackgasse:boolean;
 implementation

{$R *.dfm}

procedure TForm1.Suche(x:integer);

begin
if sackgasse=True then
begin
dauf[x+d[x]]:=false; //Dame zurücknehmen 
dab[d[x]-x]:=false;
vertikal[d[x]]:=false;
d[x]:=0; //zurückgenomme Dame erscheint i.d. Listbox als Null
         // sonst "verwirrt" die Ausgabe.

end;
erfolg:=false; // noch keine Dame gesetzt 
if (erfolg=false)and (y<8) then
begin
y:=y+1;
//d[x]:=y; // hier lag ein Fehler ...
erfolg:=True;
if dauf[x+y]=true then Erfolg:=false; //wenn Dame bedroht
if dab[y-x]=true then Erfolg:=false;  // 
if vertikal[y]=True then Erfolg:=false;
if erfolg=false then  //Suche weiter 
begin
//ListBox1.Items.Add(IntToStr(x)+'****'+ IntToStr(d[x]));
Suche(x);
end;
end;
{********************************************}
if erfolg=True  then  //Dame auf einem nicht bedrohten Feld 
d[x]:=y;
dauf[x+y]:=True;    // Diagonalen,Vertikale markieren 
dab[y-x] :=true;
vertikal[y]:=True;


ListBox1.Items.Add(IntToStr(x)+'*'+IntToStr(d[x]));//Ausgabe
y:=0;
end;
if (x<8) and (erfolg=True) Then
begin

Suche(x+1); //Neuer Aufruf 
end;
{:::::::::::::::::::::::::::::::::}
if (y=8)and (erfolg=false)  then //hier beginnt das                              //Backtracking
begin
Sackgasse:=True;  // keine Lösung mehr  
//ListBox1.Items.Add('Sackgasse');
y:=d[x-1];
 Suche(x-1);
 end;
 end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Suche(1);
end;

end.					

1:

if (erfolg = true) then					

1:

if (erfolg) then //Klammern sind (zumindest in Delphi) Geschmackssache					

1:

if (erfolg = false) then					

1:

if (not erfolg) then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure Suche(x:integer);
begin 
....
.....
erfolg:=false; // noch keine Dame gesetzt 
if (erfolg=false)and (y<8) then
begin
y:=y+1;

erfolg:=True;