منتدى تعليمي
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
منتدى تعليمي

منتد يهتم ببعض المواضيع العلمية الثقافية في عدة مجلات


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

منتدى تعليمي :: البرمجة :: دلفي

اذهب الى الأسفل

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

مُساهمة من طرف salme السبت يناير 21, 2017 8:55 pm

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

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




الكود:

procedure TForm1.Button4Click(Sender: TObject);
var IntA: Integer;
begin
 IntA := StrToInt(Edit1.Text); // شرط متعدد
 if IntA mod 2 = 0 then ShowMessage('هــذا العدد زوجي')
 else ShowMessage('هــذا العدد فردي');
end;




الكود:

procedure TForm1.Button5Click(Sender: TObject);
var IntA, IntB: Integer;
begin
 IntA := StrToInt(Edit1.Text);
 IntB := StrToInt(Edit2.Text); // شرط متعدد
 if IntA < IntB then ShowMessage('العدد الاول أصغر من العدد الثاني')
 else if IntA > IntB then ShowMessage('العدد الاول أكبر من العدد الثاني')
 else ShowMessage('العدد الاول يساوي العدد الثاني');

end;


الكود:

procedure TForm1.Button6Click(Sender: TObject);
var StrA: String;
begin
 StrA := Edit1.Text; // شرط بسيط
 if StrA = '1954' then ShowMessage('تحقق الشرط');
end;


الكود:

procedure TForm1.Button7Click(Sender: TObject);
var StrA, StrB: String;
begin
 StrA := Edit1.Text; // شرط مركب
 StrB := Edit2.Text;
 if (StrA = '1954')and(StrB = '1962') then ShowMessage('تحقق شرطان');
 if (StrA = '1954')or(StrB = '1954') then ShowMessage('تحقق أحد شرطين');
end;


الكود:

procedure TForm1.Button8Click(Sender: TObject);
var IntA, IntB: Integer;
begin
 IntA := StrToInt(Edit1.Text);
 case IntA of
 1: ShowMessage('أدخلت رقم واحد');
 2: ShowMessage('أدخلت رقم اثنان');
 3: ShowMessage('أدخلت رقم ثلاثة');
 4: ShowMessage('أدخلت رقم أربعة');
 5: ShowMessage('أدخلت رقم خمسة');
 else ShowMessage('أدخلت رقم أكبر من خمسة');
 end;
end;



المصدر دلفي تعليم
delph.forumalgerie.net

salme
Admin

المساهمات : 38
تاريخ التسجيل : 20/01/2017

https://elf1.rigala.net

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

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

منتدى تعليمي :: البرمجة :: دلفي

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