Sudoku Programm !?

[Christian H.]

Danke für die vielen Informationen ! Ich poste einfach mal meinen code den ich bisher habe ! Mir ist durchaus klar , das der Code noch relativ umständlich ist ! Zwar sind mir die Grundlagen einigermassen klar (Schleifen , Arrays u.s.w) Allerindgs hatte ich mir vorgenommen das programm erstmal möglichst verständlich zu programmieren auch wenn es mehr schreibarbeit ist und dann im nachinein noch zu vereinfachen !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.caption := IntToStr (A1);
  Label2.caption := IntToStr (A2);
  Label3.caption := IntToStr (A3);
  Label4.caption := IntToStr (A4);
  Label5.caption := IntToStr (A5);
  Label6.caption := IntToStr (A6);
  Label7.caption := IntToStr (A7);
  Label8.caption := IntToStr (A8);
  Label9.caption := IntToStr (A9);

  Label10.caption := IntToStr (B1);
  Label11.caption := IntToStr (B2);
  Label12.caption := IntToStr (B3);
  Label13.caption := IntToStr (B4);
  Label14.caption := IntToStr (B5);
  Label15.caption := IntToStr (B6);
  Label16.caption := IntToStr (B7);
  Label17.caption := IntToStr (B8);
  Label18.caption := IntToStr (B9);

  Label19.caption := IntToStr (C1);
  Label20.caption := IntToStr (C2);
  Label21.caption := IntToStr (C3);
  Label22.caption := IntToStr (C4);
  Label23.caption := IntToStr (C5);
  Label24.caption := IntToStr (C6);
  Label25.caption := IntToStr (C7);
  Label26.caption := IntToStr (C8);
  Label27.caption := IntToStr (C9);

  Label28.caption := IntToStr (D1);
  Label29.caption := IntToStr (D2);
  Label30.caption := IntToStr (D3);
  Label31.caption := IntToStr (D4);
  Label32.caption := IntToStr (D5);
  Label33.caption := IntToStr (D6);
  Label34.caption := IntToStr (D7);
  Label35.caption := IntToStr (D8);
  Label36.caption := IntToStr (D9);

  Label55.caption := IntToStr (G1);
  Label56.caption := IntToStr (G2);
  Label57.caption := IntToStr (G3);
  Label58.caption := IntToStr (G4);
  Label59.caption := IntToStr (G5);
  Label60.caption := IntToStr (G6);
  Label61.caption := IntToStr (G7);
  Label62.caption := IntToStr (G8);
  Label63.caption := IntToStr (G9);

  A1 := random (9)+1;
  begin;
  Repeat
  A2 := random (9)+1;
  Until
  A2 <> A1
  end;

  begin
  Repeat
  A3 := random (9)+1;
  Until
  (A3 <> A1) and (A3 <> A2)
  end;

  begin
  Repeat
  B1 := random (9)+1;
  Until
  (B1 <> A1) and (B1 <> A2) and (B1 <> A3)
  end;

  begin
  Repeat
  B2 := random (9)+1;
  Until
  (B2 <> A1) and (B2 <> A2) and (B2 <> A3) and (B2 <> B1)
  end;

  begin
  Repeat
  B3 := random (9)+1;
  Until
  (B3 <> A1) and (B3 <> A2) and (B3 <> A3) and (B3 <> B1) and (B3 <> B2)
  end;

  begin
  Repeat
  C1 := random (9)+1;
  Until
  (C1 <> A1) and (C1 <> A2) and (C1 <> A3) and (C1 <> B1) and (C1 <> B2) and (C1 <> B3)
  end;

  begin
  Repeat
  C2 := random (9)+1;
  Until
  (C2 <> A1) and (C2 <> A2) and (C2 <> A3) and (C2 <> B1) and (C2 <> B2) and (C2 <> B3) and (C2 <> C1)
  end;

  begin
  Repeat
  C3 := random (9)+1;
  Until
  (C3 <> A1) and (C3 <> A2) and (C3 <> A3) and (C3 <> B1) and (C3 <> B2) and (C3 <> B3) and (C3 <> C1) and (C3 <> C2)
  end;


  begin
  Repeat
  A4 := random (9)+1;
  Until
  (A4 <> A1) and (A4 <> A2) and (A4 <> A3)
  end;

  begin
  Repeat
  A5 := random (9)+1;
  Until
  (A5 <> A1) and (A5 <> A2) and (A5 <> A3) and (A5 <> A4)
  end;

  begin
  Repeat
  A6 := random (9)+1;
  Until
  (A6 <> A1) and (A6 <> A2) and (A6 <> A3) and (A6 <> A4) and (A6 <> A5)
  end;

  begin
  Repeat
  B4 := random (9)+1;
  Until
  (B4 <> A4) and (B4 <> A5) and (B4 <> A6) and (B4 <> B1) and (B4 <> B2) and (B4 <> B3)
  end;

  begin
  Repeat
  B5 := random (9)+1;
  Until
  (B5 <> A4) and (B5 <> A5) and (B5 <> A6) and (B5 <> B1) and (B5 <> B2) and (B5 <> B3) and (B5 <> B4)
  end;

  begin
  Repeat
  B6 := random (9)+1;
  Until
  (B6 <> A4) and (B6 <> A5) and (B6 <> A6) and (B6 <> B1) and (B6 <> B2) and (B6 <> B3) and (B6 <> B4) and (B6 <> B5)
  end;

  begin
  Repeat
  C4 := random (9)+1;
  Until
  (C4 <> A4) and (C4 <> A5) and (C4 <> A6) and (C4 <> B4) and (C4 <> B5) and (C4 <> B6) and (C4 <> C1) and (C4 <> C2) and (C4 <> C3)
  end;

  begin
  Repeat
  C5 := random (9)+1;
  Until
  (C5 <> A4) and (C5 <> A5) and (C5 <> A6) and (C5 <> B4) and (C5 <> B5) and (C5 <> B6) and (C5 <> C1) and (C5 <> C2) and (C5 <> C3) and (C5 <> C4)
  end;

  {begin
  Repeat
  C6 := random (9)+1;
  Until
  (C6 <> A4) and (C6 <> A5) and (C6 <> A6) and (C6 <> B4) and (C6 <> B5) and (C6 <> B6) and (C6 <> C1) and (C6 <> C2) and (C6 <> C3) and (C6 <> C4) and (C6 <> C5)
  end;}

  end;

end.

So wie es momentan ist klapt das Programm einbandfrei ! Sobald ich aber die letzte Zeile die als Kommentatr gesetzt ist ausklammert stürzt das programm ab !

mfg