Afficher un nb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 300 fois - Téléchargée 30 fois

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

Messages postés
30
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014

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
Messages postés
3
Date d'inscription
mardi 18 février 2003
Statut
Membre
Dernière intervention
19 février 2003

La prochaine fois que tu as envie d'encombrer le forum du site, trouve quelque chose d'utile ... Merci
DraZiK[Nowhere]
Messages postés
6
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
30 juin 2002

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....
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010

C'est pas dans le label qu'est entrez le nb c'est dans un edit !!!
++

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.