diali

السلام عليكم السؤال ما زال مطروحا هل من مجيب؟

السلام عليكم لقد واجهتني مشكلة في طباعة ورقة بـ: QuicKreport، حيث أردت أن أطبع الأشخاص الموجودين في قاعدة البيانات وعددهم أكثر من 50 شخص، حيث يكون في كل ورقة 20 شخص فقط، ولكل شخص مبلغ من المال، و في آخر كل صفحة يكون مجموع مبلغ المال و يترتب على ذلك ترحيل مجموع…

جرب هذا الكود المعدل والبسيط جدا 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; //EncodeDa…

يا أخي عندما تريد إظهار الفورم لاتستعمل خاصية ....Form1.show بل أستعمل .....Form1.ShowModal

السلام عليكم يا أخي أرشد إلى التالي: أولا قم بتغيير الخيارات الإقليمية و أجعل الأعداد تظهر كالتالي : 1.122.115,00 وفي الكود سورس لكي تجعل العدد يظهر لك مثل هذا : 2.588,00 قم بالتالي: edit1.Text:=floattostrf(montant,ffnumber,18,2); montant هو متغير فأنت حر في إ…

السلام عليكم ورحمة الله وبركاته جرب الكود التالي: 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;

السلام عليكم مثل ما قاله أخي عبد العزيز و هناك طريقة أخرى 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.Butto…

السلام عليكم و رحمة الله و براكاته إليك يا أخي هذه المحاولة: 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…

السلام عليكم ولكن الطريقة التي ذكرت سابقا تعمل جيدا، خاصة عندما نبحث عن الجزء من الكلمة مع الكود التالي: table1.open; Table1.Filter:='Nom='+ quotedstr(edit1.text+'*'); Table5.Filtered:= true;

السلام عليكم ورحمة الله و بركاته أريد معرفة الطريقة الصحيحة التي تستعمل في البحث، علما أنني أستعمل الطريقة التالية : Table1.open; Table1.filter:='Code='+Edit1.Text; Table1.filtered:=True; if Table5.Eof then begin Showmessage('Code Non Trouvé); Edit1.SetFocus; …

الرسالة تقول : Erreur.bmp

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

ا لسلام عليكم قمت بعمل برنامج بدلفيي 5 يحتوي تقريبا على 20 فورم ولكن عند تنفيذ البرنامج يأخذ وقت كبير ماذا أفعل لحل هذه المشكلة?

في الدلفي 5 مثلا إستعمل : QuickReport

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

ممكن إرسال رسائل من النترنت إلى الجوال وذلك في الموقع التالي : www.smscity.com

السلام عليكم أخي جرب العملية التالية: (floattostrf(x,ffnuber,6,0