SUDOKU

Commentaire de tigris1 le 11/09/2006 14:47:43

Hello belthebut!

Il me semble qu'il peut y avoir beaucoup de possibilités d'optimisation du code et une grande différence d'écriture entre le code de l'algorithme du jeu et le code de l'interface.

Comme exemple de ces améliorations, les plus de 800 lignes de la procédure config.grille peuvent être remplacées par le code ci-dessous d'une vingtaine de lignes (j'espère que l'éditeur du site ne colle pas le code tout à gauche!).

procedure Tform1.config_grille;
var
  i, j    : integer;
  nCount  : integer;
  Edit    : TEdit;
begin
  Edit := TEdit.Create(Self);
  nCount := 0;
  for i := 1 to 9 do begin
    for j := 1 to 9 do begin
//------- Pour récupérer le composant à partir de son nom
      inc (nCount);
      Edit := TEdit(FindComponent('Edit' + IntToStr(nCount)));
      if Edit <> nil then begin
//------
        Edit.ReadOnly := false;
        Edit.Font.Color := clblack;
        if (gry_aff[i, j] = true) then begin
          Edit.Text := inttostr(grille[i, j]);
          Edit.ReadOnly := true;
          Edit.Font.Color := clred;
        end;
      end;
    end;
  end;
  Edit.Free;
end;

Amicalement tigris1

Commentaire de belthebut le 11/09/2006 18:31:51

merci tigris
C clair que c'est plus cour.... lol
mais je les fait assez rapidement...

Commentaire de belthebut le 11/09/2006 21:42:01

hey tigris1

OK je vé rajouté quelque explications en plus et je rechengerai sur CS...
mais je tien à dire qd mêm que ça fait pas longtemp que je fait du delphi, environ 2 ans...
et je connai pas encore tt d'ailleur G pas trop compris le petit bout de prog que tu ma exélament sugéré.
mon gros problème étai justement de gérer les différente cases sans à chak fois reprendre leur nom...
si tu peut me donnée plus d'explication dessus j'en serai ravi...

à+

Commentaire de Nono40 le 12/09/2006 03:31:43

=> Tigris1.
Ton approche est bonne mais la solution imparfaite.
Le (1) est inutile voire dangereux, car le TEdit que tu crées ne sera pas celui que tu vas détruire. Vu que ta variable Edit va contenir le dernier TEdit sélectionné par ta ligne Edit := TEdit(FindComponent('Edit' + IntToStr(nCount)));
Edit n'a nullement besoin d'être instancié avant l'appel de FindComponent. Il suffit juste de vérifier (comme tu le soulignes) le <> de nil avant de l'utiliser.

Commentaire de kannibal le 12/09/2006 13:56:04

Pourquoi ne pas utiliser la propriété TAG du composant TEdit?

Commentaire de belthebut le 12/09/2006 15:04:36

merci les gars !!!
J'V pouvoir optimiser mon prog !!!
mais sa a pas été bien long C T rempli de copier/coller...
et pour les fonctions je faisai ça comme ça m'venai au plus simple...
mais J'V l'expliké plus en détail et je balance ça sur CS.

Commentaire de tigris1 le 14/09/2006 17:35:02

Hello belthebut!

Félicitations! le code est beaucoup plus léger et un grand merci pour les commentaires. Je vais me pencher sur la création de la grille car j'ai fait un bout de programme qui résoud les grilles. Je commence par tester s'il existe une solution unique. Si ce n'est pas le cas, j'utilise la méthode BruteForce qui appelle mes routines pour tester une solution unique, si pas de possibilité, je reviens sur mes pas, j'essaie une autre valeur, etc...

Cela fonctionne bien mais j'ai l'intation de faire un programme complet et il faut que je me penche sur la création avec des niveaux de difficulté, plus d'autres idées, mais ce sera pour un peu plus tard.

Je sais, je vais passé pour un pénible, mais je te propose une nouvelle simplification pour la fonction testval et mon code se trouve ci-dessous:

function testval(cordx : integer ; cordy : integer ; nbr : integer) : integer;
var
  i, j : integer;
begin
  Result := 1;
  // Test sur la ligne et la colonne
  for i := 1 to 9 do begin
    if (grille[i, cordy] = nbr)             // Test sur la ligne
    or (grille[cordx, i] = nbr) then begin  // Test sur la colonne
      Result := 2;
      Exit;
    end;
  end;
  // Test dans le pavé de 3x3 cases
  for i := ((cordx-1) div 3*3)+1 to ((cordx-1) div 3*3)+3 do begin
    for j :=((cordy-1) div 3*3)+1 to ((cordy-1) div 3*3)+3 do begin
      if (grille[i, j] = nbr) then begin
        Result := 2;
        Exit;
      end;
    end;
  end;
end;

Il est aussi possible de retourner un boolean mais il te faudra modifier Button2Click

Amicalement tigris1

Commentaire de belthebut le 15/09/2006 18:33:54

=> tigris
ton code peut-être optimisé...

un truc tt simple:

function testval(cordx : integer ; cordy : integer ; nbr : integer) : integer;
var
  i, j : integer;
begin
  Result := 1;
  // Test sur la ligne et la colonne
  for i := 1 to 9 do begin
    if (grille[i, cordy] = nbr)             // Test sur la ligne
    or (grille[cordx, i] = nbr) then begin  // Test sur la colonne
      Result := 2;
      Exit;
    end;
  end;
  // Test dans le pavé de 3x3 cases
  for i := ((cordx-1) div 3*3)+1 to ((cordx-1) div 3*3)+3 do
   for j :=((cordy-1) div 3*3)+1 to ((cordy-1) div 3*3)+3 do
     begin
       if (grille[i, j] = nbr) then
         begin
           Result := 2;
           Exit;
         end;
     end;
end;

le begin de la première boucle FOR peut être suprimé... C rien de bien grave mais C juste pour le signaler

et merci encore...