كيغية اجراء عملية حسابية بسيطة

[Med-01]

كيغية اجراء عملية حسابية بسيطة

كود :

http://zupimages.net/up/14/03/1vaw.jpg

مثال مرفق

[mariio]

مثال سريع

كود :

procedure TForm1.Button1Click(Sender: TObject); var a,b,c:Integer; begin if edt1.Text = '' then edt1.Text := '0'; if edt2.Text = '' then edt2.Text := '0'; a := StrToInt(edt1.Text) ; b := StrToInt(edt2.Text) ; c := a + b; edt3.Text := IntToStr(c); end; end.

[bassem_43]

مثال سريع

كود :

procedure TForm1.Button1Click(Sender: TObject); var a,b,c:Integer; begin if edt1.Text = '' then edt1.Text := '0'; if edt2.Text = '' then edt2.Text := '0'; a := StrToInt(edt1.Text) ; b := StrToInt(edt2.Text) ; c := a + b; edt3.Text := IntToStr(c); end; end.

احبت ان اضيف ملاحظة عن حلك ان سمحت
الاخ Med-01 يجمع اعداد حقيقية ايضا يعني فيها فاصلة ان صح التعبير
لدلك استخدم دالة FloatToStr بدل دالة IntToStr

[Med-01]

اهلا اخي شكرا على مشاركتك
عموما انـا لا اتعامل مع edt1.Text بل dbEdit
+ كان قال الاخ bassem_43 لاني اتعامل مع اعداد حقيقية ايضا يعني فيها فاصلة
حمل ملفات الكود التي وضعتها


.

[ferrero]

استعمل ADOQuery1

كود :

select Sum(HT) as TotalHT, Sum(TVA) as TotalTVA,Sum(TTC) as TotalTTC from Table1

[Mr.DOS]

سلام عليكم

عليك بإستعمال دوال التحويل

شاهد المثال المرفق لحساب حقلين من نوع عملة currency

var a,b,c:currency;
begin
a:=StrTocurr(DBEdit1.text);
b:=StrTocurr(DBEdit2.text);
c:=a+b;
dbedit3TTC.Text:=currToStr(c);
end;

[Med-01]

اخي جزاك الله خيرااااا

كنت قد استفدت من  هدا الكود ونسيت ان اشكرك فقد كنت في عجلت من امري

 اسئل الله يرحمك ويرحم والديك وجميع المؤمنين امين امين يارب العاليمن

[merzoug2020]

إلك ما كنت تريد  و غير محتوى adoconnection لأن أنا غيرته حسب عملي