كيفية استعمال شرط بدلفي
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
كيفية استعمال شرط بدلفي
بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
شرح كيفية استعمال شرط بدلفي
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
شرح كيفية استعمال شرط بدلفي
- الكود:
procedure TForm1.Button4Click(Sender: TObject); // delph.forumalgerie.net
var IntA: Integer; // delph.forumalgerie.net
begin
IntA := StrToInt(Edit1.Text); // شرط متعدد // delph.forumalgerie.net
if IntA mod 2 = 0 then ShowMessage('هــذا العدد زوجي')
else ShowMessage('هــذا العدد فردي');
end; // delph.forumalgerie.net
- الكود:
procedure TForm1.Button5Click(Sender: TObject); // delph.forumalgerie.net
var IntA, IntB: Integer; // delph.forumalgerie.net
begin
IntA := StrToInt(Edit1.Text); // delph.forumalgerie.net
IntB := StrToInt(Edit2.Text); // شرط متعدد // delph.forumalgerie.net
if IntA < IntB then ShowMessage('العدد الاول أصغر من العدد الثاني')
else if IntA > IntB then ShowMessage('العدد الاول أكبر من العدد الثاني')
else ShowMessage('العدد الاول يساوي العدد الثاني');
end; // delph.forumalgerie.net
- الكود:
procedure TForm1.Button6Click(Sender: TObject); // delph.forumalgerie.net
var StrA: String; // delph.forumalgerie.net
begin
StrA := Edit1.Text; // شرط بسيط
if StrA = '1954' then ShowMessage('تحقق الشرط');
end; // delph.forumalgerie.net
- الكود:
procedure TForm1.Button7Click(Sender: TObject); // delph.forumalgerie.net
var StrA, StrB: String; // delph.forumalgerie.net
begin
StrA := Edit1.Text; // شرط مركب
StrB := Edit2.Text;
if (StrA = '1954')and(StrB = '1962') then ShowMessage('تحقق شرطان');
if (StrA = '1954')or(StrB = '1954') then ShowMessage('تحقق أحد شرطين');
end; // delph.forumalgerie.net
- الكود:
procedure TForm1.Button8Click(Sender: TObject); // delph.forumalgerie.net
var IntA, IntB: Integer; // delph.forumalgerie.net
begin
IntA := StrToInt(Edit1.Text); // delph.forumalgerie.net
case IntA of
1: ShowMessage('أدخلت رقم واحد');
2: ShowMessage('أدخلت رقم اثنان');
3: ShowMessage('أدخلت رقم ثلاثة');
4: ShowMessage('أدخلت رقم أربعة');
5: ShowMessage('أدخلت رقم خمسة');
else ShowMessage('أدخلت رقم أكبر من خمسة');
end; // delph.forumalgerie.net
end; // delph.forumalgerie.net
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
عدل سابقا من قبل mah11 في 24/5/2015, 2:46 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)
رد: كيفية استعمال شرط بدلفي
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
مواضيع مماثلة
» كيفية استعمال الحلقات في دلفي
» كيفية انشاء ملف DLL واستدعائه بدلفي
» كيفية برمجة محرر بسيط بدلفي
» كيفية برمجة حاسبة بدلفي النسخة 1
» برمجة حاسبة بدلفي
» كيفية انشاء ملف DLL واستدعائه بدلفي
» كيفية برمجة محرر بسيط بدلفي
» كيفية برمجة حاسبة بدلفي النسخة 1
» برمجة حاسبة بدلفي
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى