ANIMATION D'UN TEXTE
cs_Michele58
Messages postés
34
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
26 août 2006
-
21 avril 2006 à 16:31
cs_Idefix57 Messages postés 43 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 25 février 2013 - 2 mai 2006 à 07:49
cs_Idefix57 Messages postés 43 Date d'inscription jeudi 27 avril 2006 Statut Membre Dernière intervention 25 février 2013 - 2 mai 2006 à 07:49
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/37170-animation-d-un-texte
https://codes-sources.commentcamarche.net/source/37170-animation-d-un-texte
2 mai 2006 à 07:49
et bravo fallais y penser
@+ Idefix
21 avril 2006 à 23:51
21 avril 2006 à 23:42
Bizzzzz...
Michèle.
21 avril 2006 à 21:02
où alors tu peux te servir de StrToIntDef c'est plus simple :
Timer1.Interval := StrToIntDef(Edit1.Text, 0);
Si Edit1.Text n'est pa un entier il revoie 0 et un interval à zéro arrête le timer
@+
Cirec
21 avril 2006 à 18:31
- des fichiers inutiles dans le zip !
- beep inutile si on clique sur une touche non numerique !
- l'intervalle du timer si ledit est vide declenche une exception car timer1.interval:=rien ou plutot c'est la conversion de edit1.text vers integer tu aurais du faire par exemple :
tedit1.onexit ;
if edit1.text='' then edit1.text:=1; //une valeur minimale
et inclure le code du onchange dans le onexit
- enfin source dans le seul interet est de remplir la base de données du site car deja postée plusieurs fois !
la prochaine fois si tu fait une source aussi débutante et qui sadresse a des super débutants tache de mettre des commentaire clairs a coté de chaque ligne de code !
merci !