التعامل مع الجمل الشرطية في دلفي

[rahiche]

السلام عليكم و رحمة الله تعالى و بركاته
أعضاء و زوار منتدى دلفي للعرب اليوم قمت بكتابة موضوع يتحدث عن التعامل مع الجمل الشرطية. مرفق شكل pdf

[didrosoft]

عمل ممتاز واصل اخي الفاضل

[rahiche]

بارك الله فيك يا أخي

[yami]

بارك الله فيك يا أخي

[ELARAPY]

بارك الله فيك

[rahiche]

بارك الله فيك يا أخي

\لاشكر على واجب

[aljathmi]

السلام عليكم ورحمة الله وبركاته

اخواني انا عضو مبتدي جيت انهل من بحركم الطامي

طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.

[أبو معاذ]

السلام عليكم ورحمة الله وبركاته

اخواني انا عضو مبتدي جيت انهل من بحركم الطامي

طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.

وعليكم السلام ورحمة الله وبركاته.
أهلا وسهلا معك بيننا.

أنت استعملت الكود التالي :

PHP كود :

if Edit1.text<='10' then
Shape1.Brush.color:=clred;
if Edit1.text>='11' then
Shape1.Brush.color:=clyellow;
if Edit1.text<='15' then
Shape1.Brush.color:=clyellow;
if Edit1.text>='16' then
Shape1.Brush.color:=cllime;
if Edit1.text<='20' then
Shape1.Brush.color:=cllime; 


الأخطاء الموجودة في الكود هي :
1-المقارانات المنطقية <=  و >= لا يمكن استعمالها في حالتك.
فيجب تحويل قيمة Edit1  إلى نوع رقمي. فنكتب :

if StrToint(Edit1.text) <= 10 then

هذا من جهة ، و من جهة أخرى ما لو كانت قيمة Edit1  هي 8 ، أي شرطط سيتحقق.
ف 8 <=10
8 <=15
8 <=20

لإذن عليك استعمال  if then else.

[ferrero]

السلام عليكم ورحمة الله وبركاته

اخواني انا عضو مبتدي جيت انهل من بحركم الطامي

طبقت الطريقة الاولى وما ضبطت ممكن احد يشوف وين المشكلة.

PHP كود :

var
  i: integer;
begin
  i := StrToInt(Edit1.text);
  case i of
    0 .. 10:
      Shape1.Brush.color := clred;
    11 .. 15:
      Shape1.Brush.color := clyellow;
    16 .. 20:
      Shape1.Brush.color := cllime;
  end; 


[aljathmi]

لكم كل الشكر والتقدير والاحترام.. وفقكم الله.