[أبوبكر سويدان]

للإغلاق ضع زرا واكتب في كود النقر:

كود :

close;

[asemshahen5]

إقتباس :كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage

طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع

ليس ضروري لكني احب وضعها لانه بالمستقبل ممكن إضافة كود تفريغ التكست بوكس .

[أبوبكر سويدان]

(20-06-19, 10:06 PM)سعود كتب : كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage
طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع

على حسب..

لو لديك مجموعة من الاوامر تريد تنفيذها عند تحقق شرط معين، فضعها بين Begin و End.. اما لو سطر واحد فقط فلا داعٍ لذلك.
ومع ذلك، حتى لو سطر واحد .. يمكنك وضعه بين Begin و End.

المهم هو أن آخر سطر قبل Else لا تضع له فاصلة منقوطة في نهايته.

[wared]

(20-06-19, 09:03 PM)سعود كتب : السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'admin'  then
      begin
        Unit2.form2.show;
        end
        else
        begin
        showmessage('Sorry')
        end;
         end;

end. 


ماذا اعدل؟
شكر الله لكم جميعا

---

من ناحية صياغة الشرط عرفتها:

PHP كود :

if (Edit1.Text = 'admin') and (edit2.Text='2010')  then 


اما باقي الاستفسارات الى الان

(20-06-19, 09:22 PM)سعود كتب : هل اخفاء الفورم الحالي بالسطر التالي صحيح؟!
form1.Visible:=false;
نعم يخفي لكن هل هو عملي؟

---

كيف نصل للاحداث الاخرى؟!
اسئلة كثيرة هي تعتبر أساسيات

تفضل (لست مبرمج ديلفي Delphi)

كود :

self.hide;
Unit2.form2.show;

selft تماثل Me في البسيك وthis في #C

[wared]

أشكرك أخي سعود على التقييم.

[viv]

إقتباس :كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage

طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع

ليست ضرورية وحتى لو استخدمتها فلا مشكلة 

كود :

if test=true then
A:=1
else
A:=2;

حتى لو استخدمتها عادي

كود :

if test=true then
Begin
A:=1
End
else
Begin
A:=2;
End;

فقط الاولى اقل سطور وابسط واسهل في القراءة .
الثانية تحتاجها عند تعدد السطور البرمجية


مثلا بمثال الأخ wared

كود :

if Edit1.Text = 'admin'  then
     begin
       Unit2.form2.show;
       end
       else
       begin
       showmessage('Sorry')
       end;

يمكن اختصارها الى

كود :

if Edit1.Text = 'admin'  then
          Unit2.form2.show
               else
               showmessage('Sorry');
   

[سعود]

طيب اذا اردت التحقق من متغير قد يساوي + او - او / او * وهذا المتغير مثلا o من نوع string
كيف نكتب جملة الشرط المتعددة هذي؟

---

كيف اكمل التحقق من باقي العلمات

PHP كود :

if o='+' then
    label1.caption:= label1.caption+ inttostr(n1+n2) ;
        cont:=false
                 end; 


---

مشى الوضع بالكود الا عند القسمة

PHP كود :

if o='+' then
    label1.caption:= label1.caption+ inttostr(n1+n2)
     else if o='-' then
    label1.caption:= label1.caption+ inttostr(n1-n2)
     else if o='*' then
    label1.caption:= label1.caption+ inttostr(n1*n2)
                else if o='/' then
    label1.caption:= label1.caption+ inttostr (n1/n2)

                 end; 


---

القسمة ههههههههههههههه
بدل العلامة / ضع div

---

الخير ة باي لغة برمجة تساعدك والاهم اللغة الانجليزية.

[viv]

أنتبه

   Div تعطي العدد الصحيح فقط 

كود :

10
div
3
=
3

    / تعطي النتيجة بالكسر

كود :

10
/
3
=
3.33

    mod تعطي باقي القسمة

كود :

10
mod
3
=
1