الدلفي - Delphi | الكلمات الأساسية Else - If , Then

if هناك بعض مظاهر البرمجة المشتركة في كل لغات البرمجة ومنها عبارة الشرط  

تستخدم هذه العبارة لفحص شرط معين وثم تنفذ شيفرة معينة إذا تحقق الشرط True وعدم تنفيذه في حالة عدم تحقق الشرط 

PHP CODE:
0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012	<?php var x:integer; begin x:=StrToInt(Edit1.Text) if x>10 then Label1.Caption:='عليك أن تدخل عدد من 1 -10'; end;   ?>

في المثال السابق يقوم البرنامج بطلب إدخال من المستخدم ويقارن المدخل بشرط بحيث إذا كان الشرط x>10 متحققا وكان العدد المدخل أكبر من عشرة ينفذ البرنامج الجملة بعد الشرط ويطلب بإدخال عدد أصغر من 10

تنفيذ عدة عبارات داخل الشرط

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

Visual Basic CODE:
0000 0001 0002 0003 0004 0005 0006 0007 0008	if x>10 then begin Label1.Caption:='عليك أن تدخل عدد من 1 -10';  Edit1.text:= '10';  end;

Else  إستخدام الشرط 

أحياناً تحتاج لعمل تنفيذ ما إذا كان الشرط محققاً ولكن تريد البرنامج بأن يؤدي عملاً آخر إذا كان الشرط غير محقق مثل:

Visual Basic CODE:
0000 0001 0002 0003 0004 0005	if x=0 then y:=0 else y:=sin(x);