Bonjour tout le monde,

étant débutante en Delphi, j'essaie ca fait deux jour de compiler un programme me permettant de faire l somme de deux nombres integer voici mon code:


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
unit test1;

interface

uses
        Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
        TForm1 = class(TForm)
        Button1: TButton;
        Memo2: TMemo;
        Memo1: TMemo;
        Memo3: TMemo;
        procedure Button1Click(Sender: TObject);
        private
        { Déclarations privées }
        public
        { Déclarations publiques }
end;

var
        Form1: TForm1;

implementation

{$R *.dfm}

function Somme(nombre1, nombre2 : integer):integer;
begin
        somme := nombre1 + nombre2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
        nb1, nb2: integer;
begin
        nb1 := StrToInt(memo1.Text);
        nb2 := StrToInt(memo2.Text);
        memo3.Lines.add(Somme(nb1,nb2));
end;

end.
l'erreur se situe dans la ligne en rouge ou on me donne comme raison : Types incompatible: 'String' et 'Integer'

est ce que quelqu'un trouve la faille parce que à force je ne trouve plus ou se situe l'erreur.

Merci d'avance