Salut,

Je crois que tu as des erreurs dans la récupération des valeurs U et V

// calcul des indices
n := (H * W) + ((j div 2) * (W div 2) + (i div 2));  
m := (H div 2) * (W div 2) + n;

// Lecture des valeurs
U := pointbyte[n];
V := pointbyte[m];

Amuse-toi bien !

Ken@vo

"sauf que la j'ai utiliser(sic) le fichier U_Controle.pas de Kenavo ici:
http://www.delphifr.com/code.aspx?ID=22078
pour l'adapter a(resic) mes besoin(reresic)"

Adapter, dis-tu ! En quoi ? Tout juste utilisé !
Tu n'as même pas corrigé la faute d'orthographe des commentaires
".. dans les nom des fenêtres ou des contrôles "

Tout ça ne serait pas bien grave, puisque le but de ce site est de partager des codes et des idées, et que tu cites ici l'origine du code que tu utilises, mais pourquoi n'en fais-tu pas autant sur coding.xooit.org ?
Il serait digne, élégant, et pour tout dire plus honnête, que tu y ajoutes toi-même un message précisant l'origine de ce code. Je ne souhaite pas le faire moi-même ...
Et puis faire connaître Delphifr est toujours une bonne action.

Ken@vo

Te pête pas trop les neurones,j'voudrais pas qu'tu finisses au terminus des prétentieux !

Ah si ! encore un truc pour faire un clone  : quand ça pète, quand ça ventile, quand ça disperse, toutes les cases sont découvertes !

Mon bon Japee,
Pour les constantes typées (premiers posts) c'est une option du compilateur sous D7 ("constantes typées affectables" à cocher ou {$J+})
Pour la taille max en mode personnalisé, j'ai poussé à 70 x 56 (écran 1280 x 1024) ... et ça tourne !
Pour le nombre de mines, en mode personalisé tu peux limiter à col x row - 1. J'ai mis  -1 parcequ'il est quand même plus intéressanat de jouer à la roulette russe en ayant au moins un trou dans un barillet ayant 3920 balles (ça laisse une chance ! Sinon autant y aller au kinder-suicide)
Du coup l'affichage du nombre de mines est trop petit (que 3 caractères)....

Par contre là, sans le truc du click simultané droite-gauche, c'est galère !
(pour mémoire, ce click simultané sur une case découverte portant le nombre de mines adjacentes peut produire deux effets :
- si le nombre de "drapeaux" est inférieur au nombre de mines indiquées, les cases adjacentes non découvertes changent d'aspect (mise à plat sans effet 3D).
- si le le nombre de "drapeaux" est égal au nombre de mines indiquées, toutes les autres cases adjacentes sont cliquées.
(si le le nombre de "drapeaux" est supérieur au nombre de mines indiquées, rien ne se passe)
Et pour finir je te conseille d'apposer une mention du type :
"Attention, tout abus de ce jeu peut causer des névralgies cervicobrachiales !"

Heureux de t'avoir régalé, Debiars !

Monstrueux ! D'accord !
C'est toi qui est monumental ! Plus de 20 decimales exactes dans ce calcul piège à ordi ...  
... et j'aime bien le goût du petit morceau  

Cari, j'obtiens le même résultat que toi avec les Extended
Je rapelle à tous que le résutat par le calcul direct en employant la méthode des nombres monumentaux (que je reconnais avec honte ne pas avoir encore adoptée)de Cari, et seule à ne pas se vautrer lamentablement avait donné :
0.039 938 729 673 230 208 903 671 306 691 037 268 151 500 8 (vous pouvez vérifier plus haut)
Si Cari, entre deux Kinder, pouvait pousser assez loin le second calcul avec ses nombres monumentaux, pour obtenir autant de chiffres significatif, nous aurions, je crois, la réponse la plus précise à la question : "de combien le banquier m'a t'il enflé ?"

Et en conclusion, je dirais l'informatique, c'est bon, mais c'est meilleur avec des vrais morceaux de mathématiques dedans.

D'où ces quelques lignes :

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  x,y : double;
begin
  x:=0;
  y:=1;
  for i:=26 to 50 do
  begin
    y:= y*i;
    x:= x + 1/y;
  end;
  Edit1.Text :=FloatToStrf(x,ffFixed,25,12);
end;

On remarque qu'au bout d'un certain nombre d'itérations la valeur n'évolue plus ... Ben oui on est encore parti dans un calcul où pointe la factorielle ! Mais, heureusement, ici, il n'y a pas d'incident d'emballement de l'erreur qui conduisait à des chiffres monumentaux et des dépassements de capacité.
En grattant un peu mathématiquement, je ne serais pas étonné de voir apparaître 1/n (n : nombre d'années) dans le résultat ....

La valeur finale de X dans mon message précédent m'a été donné par OpenOffice Calc. Avec Delphi les valeurs (selon le type de réel utilisé) sont différentes.
Laquelle est la plus juste ?
Avec quel type de réel calcule Calc ?
Que dit Excel ?

Pour ceux que ça intéresse :

si on développe la formule, on obtient (après quelques calculs)
X : Valeur au bout de n itérations

X = (e-1)n! - n!/1! - n!/2! - n!/3! -  ... - n!/n!
X = en! - n! - n!/1! - n!/2! - n!/3! - ... - n!/n!

C'est là quarrive le moment de vous rapeller le developpement limité de e :

e = 1 + 1/1! + 1/2! + 1/3! + ....
donc
en! = n! + n!/1! + n!/2! + ... + n!/n! + n!/(n+1)! + .....

En remplaçant plus haut, on voit que tous les termes de l'équation X s'annulent. Restent les    petits termes du developpement de en! après n!/n!

donc :
X = n!/(n+1)! + n!/(n+2)! + n!/(n+3)! +  ......
pour pouvoir calculer on vire les factorielles n! (division haut et bas):
X = 1/(n+1) + 1/(n+1)/(n+2) + 1/(n+1)/(n+2)/(n+3) +....

ce qui pour n=25 donne

X = 1/26 + 1/(26*27) + 1/(26*27*28) + ....

et c'est dans les cordes de nos ordinateurs, si on ne cherche pas trop de décimales
ce qui donne

X = 0.0399368525...    

J'espère vous avoir amusé !

Ken@vo