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.
Partager