g0belin
Messages postés155Date d'inscriptionjeudi 6 décembre 2001StatutMembreDernière intervention19 avril 2010
-
22 avril 2002 à 09:43
speletux
Messages postés30Date d'inscriptionjeudi 31 mars 2005StatutMembreDernière intervention 6 février 2014
-
15 déc. 2005 à 22:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
speletux
Messages postés30Date d'inscriptionjeudi 31 mars 2005StatutMembreDernière intervention 6 février 2014 15 déc. 2005 à 22:36
Petit exercice:
Dans ton appli, tu peux:
- afficher un nombre avec n chiffres après la virgule
- écrire un évaluateur de formules
- traiter le cas où la valeur de edit1.text est égale à 'Vertaco666' (on va rire !)
- renommer les composants
cs_DraZiK
Messages postés3Date d'inscriptionmardi 18 février 2003StatutMembreDernière intervention19 février 2003 19 févr. 2003 à 18:42
La prochaine fois que tu as envie d'encombrer le forum du site, trouve quelque chose d'utile ... Merci
DraZiK[Nowhere]
cs_pyrus
Messages postés6Date d'inscriptionvendredi 26 avril 2002StatutMembreDernière intervention30 juin 2002 27 avril 2002 à 03:23
tu peux le simplifier ton prog regarde :
dans showmessage tu doit mettre une variable de type string (chaine de caractere) or edit1.text est deja de ce type la donc tu n'est pas oblige de passer par une variable intermediaire y. ca donne donc :
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage (edit1.text);
end;
voila... et grace a ca tu economise deux microsecondes.... autrement dit ca change rien....
@+ et continu surtout....
g0belin
Messages postés155Date d'inscriptionjeudi 6 décembre 2001StatutMembreDernière intervention19 avril 2010 22 avril 2002 à 09:43
C'est pas dans le label qu'est entrez le nb c'est dans un edit !!!
++
15 déc. 2005 à 22:36
Dans ton appli, tu peux:
- afficher un nombre avec n chiffres après la virgule
- écrire un évaluateur de formules
- traiter le cas où la valeur de edit1.text est égale à 'Vertaco666' (on va rire !)
- renommer les composants
19 févr. 2003 à 18:42
DraZiK[Nowhere]
27 avril 2002 à 03:23
dans showmessage tu doit mettre une variable de type string (chaine de caractere) or edit1.text est deja de ce type la donc tu n'est pas oblige de passer par une variable intermediaire y. ca donne donc :
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage (edit1.text);
end;
voila... et grace a ca tu economise deux microsecondes.... autrement dit ca change rien....
@+ et continu surtout....
22 avril 2002 à 09:43
++