Problème dans un code sous Delphi

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:

---

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. :roll:

Merci d'avance

Peut-être un IntToStr? ;)

Oui t'as tout à fait raison il suffisait de convertir la valeur de la fonction somme en string et ca marche :P

memo3.Lines.add(IntToStr(Somme(nb1,nb2)));

Sinon je voulais demander une autre question:

Comment faire pour pourvoir écrire un texte dans une Memo, j'ai essayé MessageDlg mais ca ne marche pas.

Merci d'avance

Salut,

Je comprends pas ton soucis....
Si tu veux écrire du texte dans un Memo, tu fais la même chose que pour la somme.

Code:

---

memo3.Lines.add("Mon texte");

---

A moins que je n'ai pas compris la question :roll:

pour la saisie

Code:

---

inputQuery

---

en fait voila ce que je fais:

Code:

---

1 2	Memo1.Lines.add(edit1.Text, ' + ', edit2.Text, ' = ', IntToStr(Somme(nb1, nb2)));

---

et je souhaite qu'il m'écrive dans la ligne ajoutée le premier nombre correspondant à ca que l'utilisateur met dans edit1+ le second nombre qui sera la valeur ajoutée dans edit2 = la valeur que la fonction Somme renvoie

mais ca ne marche pas pour moi

j'ai essaiyé inputQuery comme suite:

Code:

---

1 2 3 4

msgMemo := inputQuery(edit1.Text, ' + ', edit2.Text, ' = ', IntToStr(Somme(nb1, nb2)));   Memo1.Lines.add(msgMemo);

---

ca me donne comme erreur :
les types des paramètres VAR originaux et formels doivent être identiques
Types incompatible : 'String' et 'Boolean'

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

unit main;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;   type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Edit2: TEdit; Button1: TButton; Edit3: TEdit;     procedure Button1Click(Sender: TObject);   private { Déclarations privées } public { Déclarations publiques } end;   var Form1: TForm1;   implementation   {$R *.dfm} var n1,n2,resul:integer;   procedure TForm1.Button1Click(Sender: TObject);   begin n1:=strtoint(edit1.text); n2:=strtoint(edit2.text); resul:=n1+n2; edit3.Text:=inttostr(resul); end;     end.

---

Code:

---

1 2 3 4 5 6 7 8

function AsserstrEdit(aedit:tedit):integer; begin try result:= strtoint(aedit.text); except aedit.SetFocus; raise; end;

---

Code:

---

1 2 3 4

nb1:=AsserstrEdit(edit1); nb2:=AsserstrEdit(edit2);   Memo1.Lines.add(Format('%s + %s = %d',[edit1.text,edit2.text,Somme(nb1, nb2)]);

---

Merci pour votre aide j'ai trouvé la solution: en fait le code doit ressembler à ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); var nb1 : integer; nb2 : integer; calcul : String; begin nb1 := StrToInt(edit1.Text); nb2 := StrToInt(edit2.Text);   calcul := IntToStr(Somme(nb1, nb2));   Memo1.Lines.add(edit1.Text + ' + ' + edit2.Text + ' = ' + calcul); end;

---

et ça fonctionne merci pour votre aide qd meme :ccool: