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; //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;

يا أخي عندما تريد إظهار الفورم لاتستعمل خاصية ....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.Button1Click(Sender: TObject);

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

السلام عليكم ولكن الطريقة التي ذكرت سابقا تعمل جيدا، خاصة عندما نبحث عن الجزء من الكلمة مع الكود التالي: 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; end else begin Edit2.Text:=Table1.Fieldvalues['Nom']; Table1.filter:=''; Table5.filtered:=false; end;

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

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

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

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

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