Discussion :

[lebaroudeur]

Bonjour,

Je n'arrive pas à compiler cette petite addition une erreur de programme,
pourriez-vous m'aider. comme vous l'avez compris je suis un grand et vieux novice, j'ai exactement 58 ans et pour épater mes petit enfants je me suis mis à Delphi 7.

Je fais exactement pareil que dans les exemples des tutos.

Aidez moi s'il vous plaît.

Vous avez bien commencez avec la classe caption 'edit'.

Ci-dessous le code de cette addition.

Cordialement votre dévoué.

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    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);
 
begin
 N:=StrToInt(MonText); // N contiendra alors la valeur de MonText mais transformer en integer.
 
procedure TForm1.Button1Click(Sender: TObject);
 
Var
  N1:integer; // On déclare ici que N1 et N2 sont des variables de type integer (entier)
 
N2:integer; // C'est à dire que N1 et N2 contiendront des données de type integer (entier)
 
Resultat:integer; // même remarque que pour N1 et N2
 
begin
  N1:=StrToInt(Edit1.Text);// on stocke dans N1 la valeur contenu dans la propriété Text de Label1
                           // après l'avoir transformer en integer
  N2:=StrToInt(Edit2.Text);
  Resultat:=N1+N2; // calcul du résultat
 
Edit3.Text:=IntToStr(Resultat);//On stocke la valeur du résultat dans la propriété Text de l'Edit3
                                // après l'avoir transformée en chaîne de caractères (string)
end;
 
end.

[ShaiLeTroll]

Quelle est l'erreur ? Quelle Ligne ?
Ne-serait pas ce var après un begin ?
Ne-serait pas ce double "TForm1.Button1Click"
Tu as du mal copier-coller ton code ou alors il te faut relire cet article : VI-A. Procédures

N'est ce la même question que problem de 'floattostr'

C'est quoi le thème, la réalisation d'une Calculatrice ?
Il y a au moins 3 personnes qui font la même chose au même moment, le truc de base ! Faudrait vous entraidez !

Si tu veux épater, fait un programme pour iPhone avec Fire Monkey iOS, ça les impressionnera plus qu'un programme sur un PC !
Bon ça sera une fois le TEdit parfaitement maîtrisé !

Sinon ce code est fort long !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text := IntToStr(StrToInt(Edit1.Text), StrToInt(Edit2.Text));
end;

StrToInt existe en variante StrToIntDef et TryStrToInt pour gérer les erreurs de frappe !

[lebaroudeur]

Bonsoir,

C'est la ligne suivante:

procedure TForm1.Button1Click(Sender: TObject);

Cordialement.

[skywaukers]

bonsoir,

oui, mais si tu lis bien ton code elle y est 2 fois la ligne, c'est ça le problème.

@++
Dany

[benymypony]

Ce qui donnerait :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
end;
 
end.

Beny

[lebaroudeur]

Salut Beni,

Ton code est parfait, je sens que mes petits enfants commencent à apprécier la programmation. Je vous ne l’ai pas dit mais ils ont tous les deux 22 est 24 ans un très grand niveau scolaire et ont un ipod tous les deux. La programmation c’est pour les appâter, en espérant qu’ils se mettront eux aussi aux langages informatiques.

Encore une foi merci Beni. Problème résolu, je vais donc pouvoir programmer les quatre opération une à une puis toutes ensembles.

Cordialement, Infotony ou papi.