Probleme calcul Delphi

Version imprimable

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:

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.

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:

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.

18/11/2006, 23h24
kennes

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
18/11/2006, 23h45
Jipété

Citation:

inttostr(a / b);

---> FloatToStr (a / b);
ou alors, IntToStr(a div b);

et F1 pour l'aide, merci.
--
jp
19/11/2006, 01h00
kennes

Merciii :)