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

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 10:15 am

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

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

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;

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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


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