+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجمع edit +edit.text وظهورها في edit.text اخري (/showthread.php?tid=3775)
كيف اجمع edit +edit.text وظهورها في edit.text اخري - abather abdelgdier d - 11-01-2012
كيف اجمع edit +edit.text وظهورها في edit.text اخري يعني edit1.text := strtoint(edit2.text+edit3.text)
كيف اجمع edit +edit.text وظهورها في edit.text اخري - nabilkeb - 11-01-2012
كود :
Edit3.text:=IntToStr(StrToint(Edit1.text)+StrToInt(edit2.tex));كيف اجمع edit +edit.text وظهورها في edit.text اخري - Dz SofT - 13-01-2012
أو إذا كانت الأعداد حقيقية أي Real يكون الكود
كود :
Edit3.text:=FloatToStr(StrToFloat(Edit1.text)+StrToFloat(edit2.tex));كيف اجمع edit +edit.text وظهورها في edit.text اخري - abather abdelgdier d - 17-01-2012
كيف يتم ضرب وقسمة علي اي edit مثل Edit3.text:=IntToStr(StrToint(Edit1.text)+StrToInt(edit2.text) * (5/12)));
كيف اجمع edit +edit.text وظهورها في edit.text اخري - ferrero - 17-01-2012
abather abdelgdier d كتب :كيف يتم ضرب وقسمة...
كود :
var
a, b: Integer;
c: extended;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
C := (a + b)* 5 / 12;
Edit3.Text := FloatToStr(C);