bonjours je commence a apprendre le delphi et j'ai une question!  
je fais un programme simple qui est la somme de deux nombre et je voudrais que la réponse s affiche dans un "Edit" et pas dans une fenetre qui s affiche
voici mon programme qui additionne deux nombre
 
procedure TForm1.BtnSommeClick(Sender: TObject);
var A,B,somme:real;
begin
     A:=StrToFloat(EditNbrA.text);
     B:=StrToFloat(EditNbrB.text);
     somme:=A+B;
     EditNbrA.text:='';
     EditNbrB.text:='';
     ShowMessage('la somme des deux égale'+FloatToStr(somme));
end;
end.
 
par quoi dois je changer      ShowMessage('la somme des deux égale'+FloatToStr(somme));
merci.

Salut
 
editSomme.text := FloatToStr(somme)
 
il te faut évidement un troisième Tedit nommé editSomme ou comme tu veut

merci pour l'aide mais j ai encore un problème j'ai remplcé et il me dit qu'il y a uen erreur   [Erreur] Unit1.pas(40): Identificateur non déclaré : 'editSomme'
 

bien dans: editSomme.text := FloatToStr(somme)
 
editSomme est le Name de ton troisième Tedit, si t'en a pas créé un troisième ou qu'il a pas ce nom ça marche pas

merci bien sa marche j avais oublier de changer un nom et de rajouter une variable. maintenant il me reste plus que a voir pourquoi il n'additionne pas bien,pourquoi il ne met pas la bonen réponse

pas d'koi
 
A et B t'as bien mis single (nombres à virgules) comme type?
 
sinon pas besoin de variables
 
tu fait:
 
editSomme.text:=FloatToStr(StrToFloat(EditNbrA.text)+StrToFloat(EditNbrA.text));
 
edit: oups j'avait pas bien lu ton premier post oui il faut que tes variables soit en single et pas real (je sais pas à quoi ça correspond ça d'ailleurs)
 
donc:
procedure TForm1.BtnSommeClick(Sender: TObject);
var A,B,somme:single;
begin
     A:=StrToFloat(EditNbrA.text);
     B:=StrToFloat(EditNbrB.text);
     somme:=A+B;
     editSomme.text := FloatToStr(somme);
     EditNbrA.text:='';
     EditNbrB.text:='';
     ShowMessage('la somme des deux égale'+FloatToStr(somme));
end;
end.

marche toujours pas la réponse est tjrs égale a 2,63630040213881E-308  

oula bizarre!
 
tu met quoi comme valeur dans EditNbrA.text et B?

bah des petit nombre 4 et 2

étrange...
 
je te fait un copier coller, j'ai fait ça chez moi et ça marche:
 
 
procedure TForm1.SommeClick(Sender: TObject);
var a,b,somme: single;
begin
 A:=StrToFloat(EditNbrA.text);
 B:=StrToFloat(EditNbrB.text);
 somme:=A+B;
 editSomme.text := FloatToStr(somme);
 EditNbrA.text:='';
 EditNbrB.text:='';
 ShowMessage('la somme des deux est égal à: '+FloatToStr(somme));
end;

j ai rien dis sa marche je me suis induit en erreur un grand merci a toi
mon erreur été que j avais mis editreponse.text := FloatToStr(reponse); au lieu de editreponse.text := FloatToStr(somme);
encore merci

effectivement c pas bon