+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيغية اجراء عملية حسابية بسيطة (/showthread.php?tid=5871)
كيغية اجراء عملية حسابية بسيطة - Med-01 - 19-01-2014
كيغية اجراء عملية حسابية بسيطة
كود :
http://zupimages.net/up/14/03/1vaw.jpgكيغية اجراء عملية حسابية بسيطة - mariio - 20-01-2014
مثال سريع
كود :
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 - 20-01-2014
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.
احبت ان اضيف ملاحظة عن حلك ان سمحت
الاخ Med-01 يجمع اعداد حقيقية ايضا يعني فيها فاصلة ان صح التعبير
لدلك استخدم دالة FloatToStr بدل دالة IntToStr
كيغية اجراء عملية حسابية بسيطة - Med-01 - 20-01-2014
اهلا اخي شكرا على مشاركتك
عموما انـا لا اتعامل مع edt1.Text بل dbEdit
+ كان قال الاخ bassem_43 لاني اتعامل مع اعداد حقيقية ايضا يعني فيها فاصلة
حمل ملفات الكود التي وضعتها
.
كيغية اجراء عملية حسابية بسيطة - ferrero - 21-01-2014
استعمل ADOQuery1
كود :
select Sum(HT) as TotalHT, Sum(TVA) as TotalTVA,Sum(TTC) as TotalTTC from Table1كيغية اجراء عملية حسابية بسيطة - Mr.DOS - 21-01-2014
سلام عليكم
عليك بإستعمال دوال التحويل
شاهد المثال المرفق لحساب حقلين من نوع عملة currency
إقتباس :var a,b,c:currency;
begin
a:=StrTocurr(DBEdit1.text);
b:=StrTocurr(DBEdit2.text);
c:=a+b;
dbedit3TTC.Text:=currToStr(c);
end;
RE: كيغية اجراء عملية حسابية بسيطة - Med-01 - 05-02-2016
اخي جزاك الله خيرااااا
كنت قد استفدت من هدا الكود ونسيت ان اشكرك فقد كنت في عجلت من امري
اسئل الله يرحمك ويرحم والديك وجميع المؤمنين امين امين يارب العاليمن
RE: كيغية اجراء عملية حسابية بسيطة - merzoug2020 - 10-02-2016
إلك ما كنت تريد و غير محتوى adoconnection لأن أنا غيرته حسب عملي