دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

جمع عددين في دلفي خمسة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

جمع عددين في دلفي خمسة

مُساهمة  mah11 في 4/8/2013, 8:32 pm

جمع عددين


بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله

اللهم اهدنا

جمع عددين في دلفي خمسة



الرمز:

procedure TForm1.Button1Click(Sender: TObject); // اجراء الجمع
var
a, b, c: Integer; // ثلاث متغييرات صحيحة
begin
// هذه من أجل تحويل سلسلة رقمية الى عدد صحيح
a := StrToInt(Edit1.Text); // مربع النص الاول
b := StrToInt(Edit2.Text); // مربع النص الثاني
// a + b = c
// 12 + 8 = 20
// 2 + 3 = 5
c := a + b; // جمع العددين
// هذه الدالة من أجل تحويل عدد صحيح الى سلسلةرقمية
Edit3.Text := IntToStr(c); // مربع النص الثالث
// ملاحظة
// لا يمكن ادخال الحروف في هذه الحالة
end; // نهاية اجراء الجمع


منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net


عدل سابقا من قبل mah11 في 24/5/2015, 12:40 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 365
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: جمع عددين في دلفي خمسة

مُساهمة  sdk11 في 13/6/2015, 12:19 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى