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

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

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

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;

بارك الله فيك