• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

diali

اعضاء جدد
  • عدد المشاركات

    17
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

-1 مقبول

عن diali

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 08/26/1964

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : الجزائر
  1. السلام عليكم السؤال ما زال مطروحا هل من مجيب؟
  2. السلام عليكم                  لقد واجهتني مشكلة في طباعة ورقة بـ: QuicKreport، حيث أردت أن أطبع  الأشخاص الموجودين في قاعدة البيانات وعددهم أكثر من 50 شخص، حيث يكون في كل  ورقة 20 شخص فقط، ولكل شخص مبلغ من المال، و في آخر كل صفحة يكون مجموع مبلغ المال  و يترتب على ذلك ترحيل مجموع مبلغ المال الورقة الأولى للورقة الثانية وهكذا بالنسبة لباقي الورقات الأخرى.
  3. جرب هذا الكود المعدل والبسيط جدا procedure TForm1.Button1Click(Sender: TObject); var datefrom, dateto : TDateTime; Jour,Totaldays : integer; begin datefrom := DateTimePicker1.Date; //EncodeDate(2010, 2, 1); // feb =28 dateto := DateTimePicker2.Date; //EncodeDate(2010, 3, 1); // March = 31 jour:=1; Totaldays := DaysBetween(datefrom,dateto+jour);// just some hacks if Totaldays=28 then Totaldays:=30 else if Totaldays=31 then Totaldays:=30 ;// if dateto < datefrom then begin showmessage('فترة التاريخ غير صالحة'); exit; end; ShowMessage(format('Total days = %d',[Totaldays])); end;
  4. مشكلة مع الفورم

    يا أخي عندما تريد إظهار الفورم لاتستعمل خاصية ....Form1.show بل أستعمل .....Form1.ShowModal
  5. السلام عليكم يا أخي أرشد إلى التالي: أولا قم بتغيير الخيارات الإقليمية و أجعل الأعداد تظهر كالتالي : 1.122.115,00 وفي الكود سورس لكي تجعل العدد يظهر لك مثل هذا : 2.588,00 قم بالتالي: edit1.Text:=floattostrf(montant,ffnumber,18,2); montant هو متغير فأنت حر في إختياره والسلام.
  6. السلام عليكم ورحمة الله وبركاته جرب الكود التالي: var a,b,c:real; begin a:= strtofloat(edit1.text); b:= strtofloat(edit2.text); c:=a/b; edit3.text:=floattostrf(c,ffnumber,18,2); end;
  7. السلام عليكم مثل ما قاله أخي عبد العزيز و هناك طريقة أخرى var mon1,mon2,resul:real; begin mon1:= StrToFloat(dbedit1.text); mon2:= StrToFloat(dbedit2.text); begin resul:=mon1+mon2; dbedit3.text:=floattostrf(resul,ffnumber,18,2); end; end;procedure TForm1.Button1Click(Sender: TObject);
  8. السلام عليكم و رحمة الله و براكاته إليك يا أخي هذه المحاولة: begin; result:=trunc(v); if(result mod 10)<5 then result:=result-(result mod 10) else result:=result+10-(result mod 10); end; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var mont :real; begin mont:=strtofloat(edit1.text); edit2.Text:=floattostrf(arrendi(mont),ffnumber,18,2); end;FUNCTION arrendi(v:real):integer;
  9. طريقة البحث في الدلفي

    السلام عليكم ولكن الطريقة التي ذكرت سابقا تعمل جيدا، خاصة عندما نبحث عن الجزء من الكلمة مع الكود التالي: table1.open; Table1.Filter:='Nom='+ quotedstr(edit1.text+'*'); Table5.Filtered:= true;
  10. السلام عليكم ورحمة الله و بركاته أريد معرفة الطريقة الصحيحة التي تستعمل في البحث، علما أنني أستعمل الطريقة التالية : Table1.open; Table1.filter:='Code='+Edit1.Text; Table1.filtered:=True; if Table5.Eof then begin Showmessage('Code Non Trouvé); Edit1.SetFocus; end else begin Edit2.Text:=Table1.Fieldvalues['Nom']; Table1.filter:=''; Table5.filtered:=false; end;
  11. كيف أقوم بتسريع برنامجي

    الرسالة تقول : Erreur.bmp
  12. كيف أقوم بتسريع برنامجي

    حاولت ألا أرفع جميع الفورمات إلى الذاكرة مع بداية البرنامج ولكن عندما أقوم بإظهار نافذة من النوافذ عن طريق ShowModal تظهر لي رسالة خطأ.
  13. السلام عليكم قمت بعمل برنامج بدلفيي 5 يحتوي تقريبا على 20 فورم ولكن عند تنفيذ البرنامج يأخذ وقت كبير ماذا أفعل لحل هذه المشكلة?
  14. الطباعة في دلفي

    في الدلفي 5 مثلا إستعمل : QuickReport
  15. delphi 2007 code gear

    يا أخي هل ممكن إفادتنا بهذا البرنامج