منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: شرح كيفية استعمال شرط بدلفي   الخميس أكتوبر 20, 2016 7:29 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;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: شرح كيفية استعمال شرط بدلفي   الإثنين أكتوبر 24, 2016 4:43 pm

بارك الله فيك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
شرح كيفية استعمال شرط بدلفي
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: