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

كيفية استعمال شرط بدلفي

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

كيفية استعمال شرط بدلفي

مُساهمة  mah11 في 18/7/2013, 8:01 pm

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

شرح كيفية استعمال شرط بدلفي



الكود:

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 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

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

http://delph.forumalgerie.net

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

رد: كيفية استعمال شرط بدلفي

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

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


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