hassi

مثل ما قال الأخ dbf125 يمكنك تعميم دالته على جميع المشروع و هذا بوضع دالته في وحدة مستقلة ثم تشغيلها مع العلم أن هناك بعض التغيرات مثال : function var(type,valur:string):string; أقصد ب type هو نوع المدخل 'رقم هاتف ، رقم هوية ، .....' أما valur هي القيمة التي ي…

ليكن في علمك أن عمري 30 سنة و انا متخرج من الجامعة منذ 7 سنوات فما حكاية الأستاذا الذي طلب مني مشروع و أعمال نهاية السنة :angry: أرجو منك أن لا تقذف الناس بشكك فالجميع لاحظ في المدة الأخيرة إجاباتك إما مخالف و إما إستهزاء و توبيخ للأخرين " فالمرء لا يولد عالما…

لو تكرمتم إخوتي الأعضاء إعطاءنا كود لإرسال ملف من جهازي إلى موقع أنترنات شخصي و هذا بواسطة الدلفي و شكرا مسبقا

شكرا أخي الكريم على كل ما تبذله من عمل أرجو منك درس الذي وعدتنا به و هو كيفية العمل مع ملف ini

بارك الله فيك ، نتظر درسك الموالي بفارغ الصبر شكرا

جعلها الله في ميزان حسناتك

أعتقد أن الأخ الكريم يود إنشاء برنامج يشبه مصحح الدلفي عند التنفيذ هذه الفكرة مررت بها في SQL يمكن لدلفي قراءة برنامج مكتوب في ملف txt و تنفيذها دون الحاجة إلى الدلفي حيث أنه يكفي التغير في الملف النصي حتى يتغير عمل البرنامج و يمكن إدراج دوال و حذف أخرى

أخي عبد العزيز لا تكن قاسيا كثيرا معنا فنحن في هذا المنتدى تجمعنا المحبة و روح الأخوة و الغيرة على الدين أكثر من العلم فإبتسامة في وجه أخيك خير من صدقة يتبعها منن أو أذى أو كما قال رسول الله عليه الصلاة و السلام فأرجو أن تتقبل مني كلامي لا يزال الله في عون الع…

يا أخي أنا لم أفهمك جيدا لكن حاولت على قدر فهم أنظر هنا http://www.m5zn.com/Download-7.php?name=3db12dbd31.rar

إستعمل المكون Database ثم إربطه ب Table ثم ضع الكلمة السر و المستخدم في Database

برنامج يخدم ديننا الحنيف مثل مفكرة للمسلم من مواقيت الصلاة / ومكتبة تشتمل كتب

المعلومات الموجودة في Dbgrid هي نفسها التي موجودة في Table حتي و لو عمل فلترة فأنت عمل فلترة لـــ Table و ليس Dbgrid لا حظ أن Dbgrid هي أداة عرض فقط لـــ Table و جرب وشوف

جرب هذا ComboBox1.Items.Clear; table1.First; while not table1.Eof do begin ComboBox1.Items.Append(table1.FieldByName('Id').AsString); table1.Next; end;

يمكن أخي الكريم فعل ذلك برمجيا procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If not (Key in ['A'..'Z', #13]) then Key := #0;; end; هذا الكود لايسمح إلا بكتابة الحروف الكبيرة و يكمنك التعديل فيه

ما رأيكم في مشروع يخدم ديننا الحنيف فإن وفقنا فلنا أجران و إن لم نوفق فلنا أجر و الله الموفق

أن أستعمل Windows XP و يعمل بدون مشاكل

هذا الكود به خطا تكرار الأرقام ، و حبذا لو أخذت برأي المشرف أي وصول الحلقة التكرارية إلى نصف العدد ، فمن غير الممكن أن يكون أحد قواسم عدد أكبر تماما من نصف العدد و على العموم مشكور اخي الكريم for i:=1 to strtoint(edit1.text) div 2 do if strtoint(edit1.text)mod…

بارك الله فيك يا اخي الكريم و أدامك الله لخدمتك العلم