شرح كيفية استعمال شرط بدلفي
صفحة 1 من اصل 1 • شاطر
شرح كيفية استعمال شرط بدلفي
بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
شرح كيفية استعمال شرط بدلفي
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;
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين
شرح كيفية استعمال شرط بدلفي
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;
مواضيع مماثلة
» شرح كيفية استعمال الحلقات في دلفي
» كيفية التسجيل بالمنتدى
» كيفية مناداة الاجراء لنفسه
» كيفية نطق كلمة أو جملة في الدلفي
» كيفية انشاء أليا alias أو اسم مستعار
» كيفية التسجيل بالمنتدى
» كيفية مناداة الاجراء لنفسه
» كيفية نطق كلمة أو جملة في الدلفي
» كيفية انشاء أليا alias أو اسم مستعار
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى