كيغية اجراء عملية حسابية بسيطة
كود :
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.
احبت ان اضيف ملاحظة عن حلك ان سمحت
الاخ Med-01 يجمع اعداد حقيقية ايضا يعني فيها فاصلة ان صح التعبير
لدلك استخدم دالة FloatToStr بدل دالة IntToStr
اهلا اخي شكرا على مشاركتك
عموما انـا لا اتعامل مع edt1.Text بل dbEdit
+ كان قال الاخ bassem_43 لاني اتعامل مع اعداد حقيقية ايضا يعني فيها فاصلة
حمل ملفات الكود التي وضعتها
.
سلام عليكم
عليك بإستعمال دوال التحويل
شاهد المثال المرفق لحساب حقلين من نوع عملة currency
إقتباس :var a,b,c:currency;
begin
a:=StrTocurr(DBEdit1.text);
b:=StrTocurr(DBEdit2.text);
c:=a+b;
dbedit3TTC.Text:=currToStr(c);
end;
اخي جزاك الله خيرااااا
كنت قد استفدت من هدا الكود ونسيت ان اشكرك فقد كنت في عجلت من امري
اسئل الله يرحمك ويرحم والديك وجميع المؤمنين امين امين يارب العاليمن
إلك ما كنت تريد و غير محتوى adoconnection لأن أنا غيرته حسب عملي