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

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

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

2 مشترك

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

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

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

مُساهمة  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

https://delph.forumalgerie.net

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

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

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

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

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

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

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