كيف اجمع edit +edit.text وظهورها في edit.text اخري

[abather abdelgdier d]

كيف اجمع edit +edit.text وظهورها في edit.text اخري يعني edit1.text := strtoint(edit2.text+edit3.text)

[nabilkeb]

كود :

Edit3.text:=IntToStr(StrToint(Edit1.text)+StrToInt(edit2.tex));

[Dz SofT]

أو إذا كانت الأعداد حقيقية أي Real يكون الكود

كود :

Edit3.text:=FloatToStr(StrToFloat(Edit1.text)+StrToFloat(edit2.tex));

[abather abdelgdier d]

كيف يتم ضرب وقسمة علي اي edit مثل Edit3.text:=IntToStr(StrToint(Edit1.text)+StrToInt(edit2.text) * (5/12)));

[ferrero]

كيف يتم ضرب وقسمة...

كود :

var a, b: Integer; c: extended; begin a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); C := (a + b)* 5 / 12; Edit3.Text := FloatToStr(C);