جمع عددين في دلفي
صفحة 1 من اصل 1 • شاطر
جمع عددين في دلفي
جمع عددين
طريقة جمع عددين أو طرح عددين غير الاشارة العملية فقط
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله
اللهم اهدنا
جمع عددين في دلفي
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; // نهاية اجراء الجمع
طريقة جمع عددين أو طرح عددين غير الاشارة العملية فقط
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله
اللهم اهدنا
جمع عددين في دلفي
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; // نهاية اجراء الجمع
مواضيع مماثلة
» رسائل في دلفي
» دلفي ورسائل
» عملية الجمع في دلفي
» شرح كيفية استعمال الحلقات في دلفي
» تعامل مع الوسائط المتعدد في دلفي
» دلفي ورسائل
» عملية الجمع في دلفي
» شرح كيفية استعمال الحلقات في دلفي
» تعامل مع الوسائط المتعدد في دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى