1:

var  tZelle : array[0..8, 0..8] of Integer;                    

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:

procedure Tform1.sudoku_createClick(Sender: TObject);
var  col,row,zahl,dlauf:integer;
begin
  Leer(col,row);  //Zellen leeren auf '' - Anfangszustand

 //###  Feld [1,1] bis [9,9] füllen ###
  for zahl:=1 to 9 do     // jede Zahlgruppe durcharbeiten (9x die 1; 9x die 2 etc.)
    begin
      for dlauf:=1 to 9 do
        begin
          unterquadrat(zahl,dlauf);  // 9x die jeweilige Zahl eintragen
        end;

    end;
end;


procedure TForm1.unterquadrat(zahl,dlauf:Integer);
var x,y:integer;
begin
  //Unterquadrate 1-9
    case dlauf of

      1: begin
           x:=0;
           y:=0;
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
           berechnen(x,y,zahl,dlauf);
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
         end;

 //geht weiter bis 9
end;


procedure TForm1.berechnen(x,y,zahl,dlauf:integer);
var col,row,hilfe:longint;
begin
col:=10;  //Dass die Prüfung absolviert wird, ob die Spalte/Zeile noch frei ist. Daher ein Wert der nie vorkommt
row:=10;  //leider unsaubere Programmierung, welche ich später entfernen werde

     // Prüfen ob Zeile/Spalte schon belegt wurde durch eine der Zahlen
     //
     // Hintergrund:
     // Es wird jede Zahl 9x durch die 9 Unterquadrate gerasselt. Dabei muss die jeweilige
     // Spalte/Zeile geblockt werden um die Eindeutigkeit des lösbaren Sudokus zu bewahren.

  while not col in Xcol do col:=random(3)+ x;
  while not row in Xrow do row:=random(3)+ y;
  hilfe:=strtoint(form1.Feld.Cells[col,row]);
   if hilfe in zahlen then
     begin
        unterquadrat(zahl,dlauf); //Zelle ist belegt
     end
   else
     begin
       form1.Feld.Cells[col,row]:=inttostr(zahl);
       zelle[col,row]:=zahl; //Für das Abspeichern der Werte
       Xrow:= Xrow - [row];  //Verringerung der Möglichkeiten
       Xcol:= Xcol - [col];
    end;
   end;                    

1:

hilfe:=strtoint(form1.Feld.Cells[col,row]);                    

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:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:

unit Unit1;

interface

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

type
  Tform1 = class(TForm)
    exit: TButton;
    Feld: TStringGrid;
    SGrad: TGroupBox;
    dif_easy: TRadioButton;
    dif_hard: TRadioButton;
    dif_middle: TRadioButton;
    save: TButton;
    load: TButton;
    print: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    PrintDialog1: TPrintDialog;
    Timer: TTimer;
    uhr: TLabel;
    paused: TButton;
    vergangene_Zeit: TGroupBox;
    Help: TButton;
    sudoku_create: TButton;
    loesen: TButton;
    GroupBox1: TGroupBox;
    procedure exitClick(Sender: TObject);
    procedure sudoku_createClick(Sender: TObject);
    procedure FeldDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
    procedure FeldKeyPress(Sender: TObject; var Key: Char);
    procedure berechnen(x,y,zahl,dlauf:integer);
    procedure unterquadrat(zahl,dlauf:Integer);
    procedure pausedClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  StartZeit: TDateTime;     //####
  StopZeit:  TDateTime;     //Für die Stopuhr Deklaration
  Zeitsumme: TDateTime;     //####

  zelle: array[0..8,0..8] of integer;
  Xrow: set of 0..8;        //
  Xcol: set of 0..8;        //Mengenvariable
  zahlen: set of 1..9;
  form1: Tform1;

implementation

{$R *.dfm}

procedure Tform1.exitClick(Sender: TObject);
begin
  close
end;

procedure Tform1.sudoku_createClick(Sender: TObject);
var  col,row,zahl,dlauf:integer;
begin
  paused.Tag:=9;                   //####
  pausedClick(Sender);             //Deklarationen für die Stopuhr
  vergangene_zeit.Visible:=true;   //####

  //Zellen leeren - auf Anfangszustand setzen
  for col:=0 to 8 do
    begin
      for row:=0 to 8 do
        begin
          form1.feld.Cells[col,row]:=inttostr(0);
          form1.feld.Color:=clwhite;
        end;
    end;

 //###  Feld [1,1] bis [9,9] füllen ###
  for zahl:=1 to 9 do     // jede Zahlgruppe durcharbeiten (9x die 1; 9x die 2 etc.)
    begin
      for dlauf:=1 to 9 do  unterquadrat(zahl,dlauf);  // 9x die jeweilige Zahl eintragen
      Xcol:=Xcol + [1..9];
      Xrow:=Xrow + [1..9];
    end;
end;


procedure TForm1.unterquadrat(zahl,dlauf:Integer);
var x,y:integer;
begin
  //Unterquadrate 1-9
    case dlauf of

      1: begin
           x:=0;
           y:=0;                       //#########################################################################
           berechnen(x,y,zahl,dlauf);  // hier kommt die Meldung "ist kein gültiger Integerwert".
         end;                          //#########################################################################

      2: begin
           x:=3;
           y:=0;
           berechnen(x,y,zahl,dlauf);
         end;

      3: begin
           x:=6;
           y:=0;
           berechnen(x,y,zahl,dlauf);
         end;

      4: begin
           x:=0;
           y:=3;
           berechnen(x,y,zahl,dlauf);
         end;

      5: begin
           x:=3;
           y:=3;
           berechnen(x,y,zahl,dlauf);
         end;

      6: begin
           x:=6;
           y:=3;
           berechnen(x,y,zahl,dlauf);
         end;

      7: begin
           x:=0;
           y:=6;
           berechnen(x,y,zahl,dlauf);
         end;

      8: begin
           x:=3;
           y:=6;
           berechnen(x,y,zahl,dlauf);
         end;

      9: begin
           x:=6;
           y:=6;
           berechnen(x,y,zahl,dlauf);
         end;
     end;
end;

procedure TForm1.berechnen(x,y,zahl,dlauf:integer);
var col,row,hilfe:integer;
begin
  col:=10; //Dass die Prüfung absolviert wird, ob die Spalte/Zeile noch frei ist. Daher ein Wert der nie vorkommt
  row:=10;  //leider unsaubere Programmierung, welche ich später entfernen werde

     // Prüfen ob Zeile oder Spalte schon gesperrt wurde durch eine der Zahlen
     //
     // Hintergrund:
     // Es wird jede Zahl 9x durch die 9 Unterquadrate gerasselt. Dabei muss die jeweilige
     // Spalte/Zeile geblockt werden um die Eindeutigkeit des lösbaren Sudokus zu bewahren.

  while not col in Xcol do col:=random(3)+ x;
  while not row in Xrow do row:=random(3)+ y;
  hilfe:=strtoint(form1.Feld.Cells[col,row]);

   if hilfe in zahlen then
     begin
        unterquadrat(zahl,dlauf); //Zelle ist belegt
     end
   else
     begin
       form1.Feld.Cells[col,row]:=inttostr(zahl);
       zelle[col,row]:=zahl; //Für das abspeichern der Werte
       Xrow:= Xrow - [row];
       Xcol:= Xcol - [col];
    end;
   end;


procedure Tform1.FeldDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var s:string;
begin

//Zellen einheitlich machen (dicke Ränder + zentrierte Textausgabe)
 with sender as TStringGrid do
    begin
      canvas.Brush.Color:= clwhite;
      canvas.font.color:= clblack;
      feld.canvas.FillRect(rect);    //Hintergrund der Zelle füllen

      s:=cells[acol,arow];   //Zelltext holen...
      DrawText(canvas.Handle,PChar(s), StrLen(PChar(s)),Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE); //...und zentral ausgeben

// Einteilung malen
      canvas.Pen.Color:= clblack;
      Canvas.Pen.Width:=3;

    //aller 3 Zellen die Linien stärker malen und nur im Bereich der zu zeichnenen Zelle zeichnen
      if ((acol+1) mod 3)=0 then
        begin
         //Strich rechts
          canvas.moveto(Rect.Right,rect.top);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
      if ((arow+1) mod 3)=0 then
        begin
         //Strich unten
          canvas.moveto(Rect.left,rect.Bottom);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
    end;
end;


procedure Tform1.FeldKeyPress(Sender: TObject; var Key: Char);
begin
  with sender as TStringGrid do
    begin
      //Änderungen nur, wenn Zelle leer ist und eine Zahlentaste gedrückt wurde
      if (cells[col,row]='') and (key in ['1'..'9']) then
        cells[col,row]:=key;
    end;
end;

procedure Tform1.pausedClick(Sender: TObject);
begin
  case paused.Tag of //Merkt sich dern Wert der eingegebenen Klicks auf den Button

    0: begin//Uhr wird gestartet
         StartZeit:=now-ZeitSumme;
         Timer.Enabled:=true;
         paused.Caption:='Pause';
       end;

    1: begin //Uhr wird angehalten
         StopZeit:=now;
         Timer.Enabled:=false;
         paused.Caption:='Weiter';
         ZeitSumme:=StopZeit-StartZeit;   //berrechnen der abgelaufenen Zeit
         Uhr.Caption:=TimeToStr(ZeitSumme);
       end;

/// Neustart des Spieles - Ausgangszeit
    9: begin //Uhr auf 00:00:00
         StartZeit:=now;
         Timer.Enabled:=true;
         paused.Caption:='Pause';
         paused.Tag:=0;
       end;
  end;

  //Klicks des Buttons zurücksetzen
  paused.Tag:=paused.Tag + 1;
  if paused.Tag > 1 then paused.Tag := 0;
end;

procedure Tform1.TimerTimer(Sender: TObject);
begin
  //abgelaufene Zeit berechnen und im Label Uhr anzeigen
  Uhr.Caption:= TimeToStr(now - StartZeit);
end;

end.                    

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

var
  XCol: Set of 0..8;
  Col:  Integer;
begin
  Col := 10;                    // Col = 10

  while not Col in XCol do       // Solange (not Col)* in XCol ist...
    Col := Random(3) + 5;       // wird nicht aufgerufen, (not Col)* ist ja auch nicht in XCol

  Showmessage(IntToStr(Col));   // Col = 10
end;                    

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

var
  XCol: Set of 0..8;
  Col:  Integer;
begin
  Col := 10;                    // Col = 10

  while not (Col in XCol) do     // Solange not (Col in XCol) ist...
    Col := Random(3) + 5;       // wird aufgerufen, da 10 nicht in XCol ist

  Showmessage(IntToStr(Col));   // Col z.B. = 6
end;