salut
j'ai finit pour les integer et maintenan je veut mettre du boolean :
voila j'ai 2 edit " edi1 , edit2" et un boutton
j'ai mis ce bout de code c'est marche pas :
ben je veut entrer dans l'edit 1 un nombre comme 2.5 , et puis le multiplier par 2 et avoir le resultas finale dans edit2procedure TForm1.Button1Click(Sender: TObject);
var
a:boolean;
r:double;
begin
a:=BoolToStr(edit1.texte);
r:=a*2;
edit2.text:=floattostr(r)
end;
svp aidez moipar exemple : 2.5*2=5
Partager