منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

 جمع عددين في دلفي

اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: جمع عددين في دلفي   الخميس أكتوبر 20, 2016 7:21 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; // نهاية اجراء الجمع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
samire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: جمع عددين في دلفي   الإثنين أكتوبر 24, 2016 4:51 pm

مشكوووووووووووووور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
جمع عددين في دلفي
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: