merouane

و عليكم السلام مع انني لا أتعامل مع هذا النوع من الاتصال بقاعدة البيانات، إلا أنني أحببت أن أفيد بما قرأت لقد قرات رد أحد الخبراء لنفس السؤال في موقع غربي ، وكان:

السلام عليكم استعمل أخي DaysInMonth مع إضافة DateUtils في uses مثلا استعملها مع TDateTimePicker Label1.Caption := inttostr(DaysInMonth(DateTimePicker1.Date)); أنظر داخل الوحدة DateUtils فهي تحتوي على إجراءات عديدة فيما يخص الوقت و الزمن تحياتي :)

و عليكم السلام و رحمة الله تعالى وبركاته حدد اخي نوع المشروع، هل تطبيق قواعد البيانات، تبادل الملفات، .....؟

السلام عليكم عند استعمالك للـ QRDBText اذهب إلى الأحاث (Event) بالضبط عند OnPrint مثلا استعملت قاعدة البيانات biolife.db من DBDEMOS Alias procedure TQuickReport2.QRDBText4Print(sender: TObject; var Value: String); begin if Table1.FieldByName('Length (cm)').AsI…

الحمد لله فقط احببت ان أوضح أمر S := S+' ' + DBGrid1.Columns.Items.Title.Caption; سوف تصبح: S=' Data1 Data2' الفراغ في البداية زائد ولقد اعتمدت في مشاركتي " I^ " لأنه يمثل Tab و عندما تفتحه بواسطة MSExcel سترى أن كل كلمة في خانة و أيضا سيساعد عندما تريد أن تحو…

الرابط يعمل

أظن الاخ يقصد العدد 96801638900 تستطيع ان تجرب في الدلفي وسنرى الفرق مثلا سنقوم باستعمال i:integer=968016389 و j:int64 ثم سنقوم بعملية حسابية : j := i *100 سنحصل على j=-1982608908 أما إذا قمنا بالأتي : j:=int64(i)*100 سنحصل على j=96801638900 وهذا ما نريده أرجو…

لم أعد متأكدا مما تريد حسب ما فهمت فأنت لديك DBGrid وتريد الكتابة منها إلى الملف Data.txt ام مثل ما فعل الأخ عبد العالي من قاعدة البيانات بالنسبة للـ Table1 ستراه أيضا في مثال الأخ عبد العالي منطقيا البيانات لن تتكرر لأننا عملنا بالإجراء ;(Rewrite(F و لقد جربت…

لم أفهم أعرض المشكلة بالصور او أرفق المثال

أو فقط يقوم باستدعاء الإجراء كالتالي begin Button4Click(Self); end procedure TForm1.Action1Execute(Sender: TObject);

الأفضل أن يكون الاختصار حرف من حروف كلمة الزر لعمل ذلك هناك طريقة سهلة مثلا : New نريدها عبر الضغط على ALT+N ، ما عليك إلا كنابة في Caption للزر New& وهكذا يصبح N ew أما إذا أردت الإختصار حرف من وسط الكلمة ما عليك إلا إضافة & قبل الحرف المراد ، مثلا نريد ALT+E…

السلام عليكم أظنك أخي عبد العالي أغفلت أن السائل يتحدث عن DBGrid و الكنابة من الداتا غريد يختلف عن قاعدة البيانات من حيث تسمية الاعمدة و كذلك الحقول الظاهرة var i,j : Integer; F: TextFile; S:String; begin AssignFile(F, 'C:\Data.txt'); Rewrite(f); S:=''; For i:…

السلام عليكم لا أدري إن كان لك علم بهذا الموقع أم لا http://www.marcocantu.com/epascal/arabic هو لكاتب "Mastring delphi 7" و في الرابط سنقرأ عن Essential Pascal مترجم للعربية ذكرته لعموم الفائدة تحياتي :)

بارك الله فيك

خلال تجولي بالنت وجدت White paper من بورلاند فتذكرت أنك في الأصل مبرمج VB (إذا لم أخطئ) عنوانه : Migrating from Visual Basic to Delphi الكاتب : Mitchell C. Kerman الصفحات : 33 صفحة الحجم : 807 KB التحميل : http://www.4shared.com/file/44030246/e8d46...vbtodelph…

السلام عليكم المشكلة لا توجد كتب بالعربي ذات قيمة معرفية عالية أو تضيف شيئا جديدا يمكنه ان يأخذك بعيدا في عالم البرمجة بدلفي - رأيي الخاص سأقدم لك ما لدي من كثب إنجليزي – حاولت انتقاء الأنفع و الأجدر بالتحميل – مع محاولة عدم تكرار ما يوجد بالمكتبة لكن قبل البد…

و عليكم السلام ورحمة الله تعالى وبركاته من الافضل لو تحدد اللغات ( أنجليزية - فرنسية ..) حتى نعرف ما نبعث. تحياتي :)

و عليكم السلام رأيي هو لا تعمل بـ Frame إلا في حالات تأطير نتيجة مثلا باللون الاحمر او الأخضر و الأفضل (بالنسبة لي) QRShape والعمل مع الخاصية Shape بإعطاء القيم qrsVertLine أو qrsHorLine ثم توزيعها حول البيانات مثل QRDBText قد تكون هناك طرق عدة أكثر وأحسن من ه…

شكرا

و عليكم السلام مثلما ذكر زاهر207 1- نختار حيز ترقيم الصفحات، هنا لقد وضعته في أسفل الصفحة bandetype = rbPageFooter 2- هذه هي المطلوبة QRSysData التي تمكننا طباعة رقم الصفحة 3 - نحدد Data لـ QRSysData بـ qrsPageNumber 4 - هنا يظهر موقعه في وسط أسفل الصفحة مسبوق…