delphi4arab منتديات دلفي للعرب

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

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

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

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

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

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);

abather abdelgdier d