A CHAQUE FOIS UN NUMERO PAS COMME L'AUTRE

cs_zmc Messages postés 147 Date d'inscription vendredi 26 avril 2002 Statut Membre Dernière intervention 26 avril 2008 - 13 août 2002 à 05:39
bs824974 Messages postés 1 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 1 septembre 2002 - 1 sept. 2002 à 20:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12086-a-chaque-fois-un-numero-pas-comme-l-autre

bs824974 Messages postés 1 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 1 septembre 2002
1 sept. 2002 à 20:12
Pour éviter qu'il ne sorte '0', rien n'empêche de faire :

randomize;
label1.caption(random(999999)+1);

de façon à tirer un nombre de 1 à 1000000 ... enfin, si je n'ai pas oublié un zéro en recopiant ;)
cs_zmc Messages postés 147 Date d'inscription vendredi 26 avril 2002 Statut Membre Dernière intervention 26 avril 2008 1
13 août 2002 à 05:39
toi t un genie du delphi, enfin ca va s'en dire ce caption, de meme pour la parenthese et le ";", desolé pr l'oublie, si ca marche pas y a egalement :

randomize;
Label1.Caption(random(1000000));


bonne continuation

zmc
Dreus Messages postés 17 Date d'inscription mercredi 6 mars 2002 Statut Membre Dernière intervention 5 décembre 2006
12 août 2002 à 12:00
zmc : J avoue ke c est plus simple comme ca mais il manque :
".Caption" a ton Label1,
il y a 3 parentheses ouverte et 2 fermé,
sans parler du ";".

Et pi si tu met que cette instruction le Label vas afficher ke le chiffre "0" d'après se que j ai remarqué.

;) a++
Dreus
cs_zmc Messages postés 147 Date d'inscription vendredi 26 avril 2002 Statut Membre Dernière intervention 26 avril 2008 1
10 août 2002 à 04:45
lol alors la pour faire compliqué t'as vraiment fait compliqué, alors qu'il suffit de faire :
Label1:=IntToStr(random(random(100000000))

bonne continuation

zmc
Rejoignez-nous