Afficher un nb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 568 fois - Téléchargée 32 fois

Commenter

Contenu du snippet

vous renter un nb dans le label1 et sa vous laffiche dans une msgbox quand on clique sur le bouton

Source / Exemple : 


unit nb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var y:integer ;
begin
  y:= (strtoint(edit1.text)) ;
   showmessage (inttostr(y));
   end;

end.

Conclusion :


merci a kewel pour son aide

A voir également

Ajouter un commentaire Commentaires
speletux Messages postés 30 Date d'inscription jeudi 31 mars 2005 Statut Membre Derniè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és 3 Date d'inscription mardi 18 février 2003 Statut Membre Dernière intervention 19 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és 6 Date d'inscription vendredi 26 avril 2002 Statut Membre Dernière intervention 30 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és 155 Date d'inscription jeudi 6 décembre 2001 Statut Membre Dernière intervention 19 avril 2010
22 avril 2002 à 09:43
C'est pas dans le label qu'est entrez le nb c'est dans un edit !!!
++
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pyknite)