IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

Probleme calcul Delphi


Sujet :

Delphi

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 7
    Points : 5
    Points
    5
    Par défaut Probleme calcul Delphi
    Bonjour,

    Je viens d'essayer de faire une de mes 1ere appli c'est un fiche ou l'on insere 2 nombres dans deux champs et quand on clik sur "calcul" le log nous donne la somme le difference le produit le quotient... (vue dans le tuto de unvrai.com)

    Bref donc j'ai declaré a et b deux variables integer et ensuite j'ai mis un event sur le moment ou l'on clique sur "Calculs" pour que les calculs soir effectué de la maniere suivante : som.caption := a + b;
    Pour qu'il s'affiche en meme temps...

    Mais le delphi renvoi une erreur [Erreur] Unit1.pas(47): E2010 Types incompatibles : 'string' et 'Integer'



    Merci a vous
    @+

    Ma source :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TExo = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Somme: TLabel;
        Difference: TLabel;
        Produit: TLabel;
        Quotient: TLabel;
        Quotient2: TLabel;
        Reste: TLabel;
        Calculs: TButton;
        Fin: TButton;
        som: TLabel;
        diff: TLabel;
        quotr: TLabel;
        quot: TLabel;
        rest: TLabel;
        prod: TLabel;
        procedure finlog(Sender: TObject);
        procedure calcul(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Exo: TExo;
      a, b: integer;
     
    implementation
     
    {$R *.dfm}
     
    procedure TExo.calcul(Sender: TObject);
    begin
    a := StrToInt(Edit1.Text);
    b := StrToInt(Edit2.Text);
    som.caption := a + b;
    diff.Caption := a - b;
    prod.Caption := a * b;
    quotr.Caption := a div b;
    rest.caption := a mod b;
    quot.Caption := a / b;
    end;
     
    procedure TExo.finlog(Sender: TObject);
    begin
    Application.Terminate
    end;
     
    end.

  2. #2
    Membre confirmé
    Avatar de diden138
    Profil pro
    Développeur Web
    Inscrit en
    Mai 2006
    Messages
    714
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2006
    Messages : 714
    Points : 589
    Points
    589
    Par défaut Re :
    effectivement types incompatible j'explique le nombre contenu dans les deux zone d'edition est de type texte donc si tu veux lui affecter une valeur tu la transforme en une chaine de caractére donc si je reprend ton code ça donne ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
     
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TExo = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Somme: TLabel;
        Difference: TLabel;
        Produit: TLabel;
        Quotient: TLabel;
        Quotient2: TLabel;
        Reste: TLabel;
        Calculs: TButton;
        Fin: TButton;
        som: TLabel;
        diff: TLabel;
        quotr: TLabel;
        quot: TLabel;
        rest: TLabel;
        prod: TLabel;
        procedure finlog(Sender: TObject);
        procedure calcul(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Exo: TExo;
      a, b: integer;
     
    implementation
     
    {$R *.dfm}
     
    procedure TExo.calcul(Sender: TObject);
    begin
    a := StrToInt(Edit1.Text);
    b := StrToInt(Edit2.Text);
    som.caption := inttostr(a + b);
    diff.Caption := inttostr(a - b);
    prod.Caption := inttostr(a * b);
    quotr.Caption := inttostr(a div b);
    rest.caption := inttostr(a mod b);
    quot.Caption := inttostr(a / b);
    end;
     
    procedure TExo.finlog(Sender: TObject);
    begin
    Application.Terminate
    end;
     
    end.
    @+
    et vint le 20siècle et l'homme se mit à réflechir comme la machine auteur: diden138
    Langage: Pascal,OCaml,Delphi,c/c++.
    Langages web:Xhtml,Css,Php/Mysql,Javascript,Actionscript 2.0
    Plate forme:Windows XP Pro SP2./Red Hat 9.0/SUSE 10.2
    Config :Intel P4 3.2GHZ,2MO cach,512 RAM.
    Outils:Tp7,objective caml,Delphi 6 perso, C++builder 6,Visual C++ Express edition sous win,code-block sous linux(Ubuntu) .

  3. #3
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 7
    Points : 5
    Points
    5
    Par défaut
    Merci

    Mais bizarement cela ne marche pas avec la division ?

    [Erreur] Unit1.pas(52): E2250 Aucune version surchargée de 'IntToStr' ne peut être appelée avec ces arguments

  4. #4
    Expert éminent sénior
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    10 699
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 10 699
    Points : 15 042
    Points
    15 042
    Par défaut
    inttostr(a / b);
    ---> FloatToStr (a / b);
    ou alors, IntToStr(a div b);

    et F1 pour l'aide, merci.
    --
    jp
    Il a à vivre sa vie comme ça et il est mûr sur ce mur se creusant la tête : peutêtre qu'il peut être sûr, etc.
    Oui, je milite pour l'orthographe et le respect du trait d'union à l'impératif.
    Après avoir posté, relisez-vous ! Et en cas d'erreur ou d'oubli, il existe un bouton « Modifier », à utiliser sans modération
    On a des lois pour protéger les remboursements aux faiseurs d’argent. On n’en a pas pour empêcher un être humain de mourir de misère.
    Mes 2 cts,
    --
    jp

  5. #5
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    7
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 7
    Points : 5
    Points
    5
    Par défaut
    Merciii

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Probleme DLL delphi, appels aux fonctions
    Par bouzaidi dans le forum Delphi
    Réponses: 4
    Dernier message: 11/04/2007, 15h04
  2. probleme reseau delphi
    Par shadrak dans le forum Delphi
    Réponses: 2
    Dernier message: 24/08/2006, 12h53
  3. Probleme avec delphi et WMI.
    Par LeBigornot dans le forum API, COM et SDKs
    Réponses: 2
    Dernier message: 15/01/2006, 12h56
  4. [problem IDE delphi 2005] impossible d'exectuer
    Par Altaric dans le forum Autres Logiciels
    Réponses: 5
    Dernier message: 16/11/2005, 09h38
  5. [LG] Problème calcul de trinome
    Par shinryu666 dans le forum Langage
    Réponses: 3
    Dernier message: 24/09/2005, 10h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo