Quellcode

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,a,r:integer;
z: string;
gefunden: boolean;
begin
  randomize;
  for i:= 0 to 8 do
  begin
    for j:= 0 to 8 do
    begin
      z:= zahlen;
      gefunden:= false;
      while (length(z) > 0) and (gefunden = false) do
      begin
        r:= random(length(z))+1;
        a:= StrToInt(z[r]);
        Delete(z,r,1);
        if (check_horizontal(Point(j,i),a)) and
           (check_vertikal(Point(j,i),a)) and
           (check_kasten(Point(j,i),a)) then
        begin
          Sudoku.Cells[j,i]:= IntToStr(a);
          gefunden:= true;
        end;
      end;
    end;
  end;
end;