2 problemes : random et onclick .

bonjour,
J'ai 2 problemes sur delphi et j'ai besoin de votre aide :
1er probleme (le random)
J'aimerai que dans une boucle la valeur du random se recharche a chaque tour :

Code:

---

1 2 3 4 5 6

for j:=1 to 5 do begin aleat_5:=random(5)+1; aleat_8:=random(8)+1; //instructions suivantes et utilisation des variables aleat_5 et aleat_8 end;

---

Mon probleme c'est que quand j'affiche les valeurs de aleat_5 et aleat_8 c'est 5 fois la meme chose , le random ne se réinitialise pas , il n'y a pas a chaque boucle recalcul de aleat_5 et aleat_8.

(lorsque j'ajoute dans un label un label1.caption:=label1.caption+aleat_5 j'obtient les meme chiffres 1111 , 2222 ...)

J'ai cherche un peu dans mon livre sur delphi et il est dit qu'il faut utiliser la fonction randomize() qui réinitialise le random selon par exemple un intervalle de temps (avec un timer) , mais les tours de boucle sont beaucoup trop rapide pour ce systeme (le timer a un minimum de 1 ms).

Si quelqu'un connait la reponse pour qu'a chaque tour la valeur des variables soit recalcule pour que ces valeurs soit du "hasard" a chaque tour de boucle ...

2ème probleme

J'aimerai exécuter une action lors d'un click de bouton par exemple mais j'aimerai que cette action ne s'exécute qu'une seule fois pas a chaque click de bouton et que le bouton en question s'efface ou se cache apres utilisation .

merci d'avance
jamah

1er pb:

Citation:

---

Envoyé par AideDelphi

Pour initialiser le générateur de nombre aléatoire, ajoutez un seul appel Randomize ou affectez une valeur à la variable RandSeed avant d'effectuer un appel à Random.

---

pour le 2nd:
Dans le code du OnClick de ton bouton, tu ajoutes:

Code:

---

MonBouton.enabled:=false; // ou MonBouton.Visible:=false;

---

Tout d'abord, Randomize n'est a executer qu'une seule fois (au démarrage de ton application par exemple, ce n'est pas la peine de d'en faire un toute les 5 lignes de code.

Ensuite, ton code m'a l'air très bien comme il est, c'est étonnant qu'il te sorte toujours le même chiffre ! Ca doit venir d'autre chose d'après moi, un peu plus de code nous aiderais à t'aider !

ensuite, pour ajouter ton résultat au caption, si ton aleat_5 est bien un integer (c'est pas un Variant, hein ?), tu devrais avoir :

Code:

---

label1.caption:=label1.caption+InttoStr(aleat_5);

---

Enfin, dans le OnClick de ton bouton, tu écris par exemple :

Code:

---

1 2 3 4

begin //Actions du clic button1.visible:=false; end;

---

Bon courage

merci bcp j'ai resolu mon probleme pas par randomize ni random seed mais a cause de mon mauvais code :) hehe
et pour le bouton cache c ok ossi
merci encore