tahasit

السلام عليكم ورحمة الله تعالى وبركاته من أجل إثراء الموضوع : هذه طريقة أخرى بسيطة تمكنك من تعبئة combobox ببيانات حقل معين من قاعدة البيانات procedure TForm1.BitBtn1Click(Sender: TObject); begin ComboBox1.Clear ; Table1.First; repeat ComboBox1.Items.Add(Table1…

بارك الله فيك أخي rober

بارك الله فيك أخي rober

السلام عليكم ورحمة الله تعالى وبركاته نعم أنا أيضا أنصحك بإستعمال أحد المكونات التي ذكرها الأخ الكريم أبو محمد ولكن ربما هناك حل وهو إعادة تسمية الملف المضغوط وذلك يكون كالتالي : procedure TForm1.Button2Click(Sender: TObject); var d :TDate ; a :String ; begin …

يمكنك عمل ذلك كالتالي : procedure TForm1.Button1Click(Sender: TObject); var d: TDate ; begin d:=Now; ShowMessage((DateToStr(d))); end; يعني تستبدل كلمة Svg وتضع مكانها المتغير من نوع تاريخ d مع الأخذ بعين الإعتبار فورمات التاريخ لأنه لا يمكن أن يحتوي إسم الملف…

إما أن تعيد تثبيت النظام وتعيد تثبيت الإصدار 2010 أو تبحث في قوقل ومواقع التورنت عن نسخة كاملة :) . ولكني أنصحك أن تبدأ بدلفي 07 فأنا بدأت معه ولم أجد مشكلة في الإنتقال إلى الإصدارات الأخرى

إما أن تعيد تثبيت النظام وتعيد تثبيت الإصدار 2010 أو تبحث في قوقل ومواقع التورنت عن نسخة كاملة :) . ولكني أنصحك أن تبدأ بدلفي 07 فأنا بدأت معه ولم أجد مشكلة في الإنتقال إلى الإصدارات الأخرى

السلام عليكم ورحمة الله تعالى وبركاته بينما أتجول على النت عثرت على هذا البرنامج Themida الذي يقوم بضغط البرامج وحمايتها وهذه صوره : ويقوم بضغط وحماية البرامج وملفات DLL وغيرها حيث أن نتيجة الضغط تصل لتقليص حجم البرنامج إلى النصف وحمايته من برامج فك الضغط بالإ…

السلام عليكم ورحمة الله تعالى وبركاته بارك الله فيكم على المجهود الطيب والمتميزوجعله الله في ميزان حسناتكم

وعليكم السلام ورحمة الله تعالى وبركاته أنا أنصحك أن تبدأ بدلفي 7 أو دلفي 2009 لأن أغلب المكونات متوفرة لهما كما أنهما لا يختلفان كثيرا عن باقي النسخ فيما يخص التحميل أنظر هنا : /index.php?showtopic=140816

عذرا أخي الكريم نسيت إخبارك بأن تضيف الوحدة Windows في القسم Uses على كل حال المثال المرفق يوضح كل شيئ shalwan.rar

السلام عليكم ورحمة الله تعالى وبركاته الموضوع موجود بالمنتدى منذ مدة ربما لم تبحث جيدا على كل حال أضف مايلي قبل Application.Initialize var HM: THandle; function Check: boolean; begin HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex'); Result := (HM <> 0); …

بارك الله فيك أخي rober ''كفيت ووفيت'' جزاك الله عنا خير جزاء

بارك الله فيك أخي rober وأنا أيضا معكم ولكن هذه الطريقة الوحيدة التي أعرفها و أعمل بها وأرتئيت أن أشارك بها إخواني ياريت الأخ حكمت سراج الدين أو أحد الإخوة يثري الموضوع بذكر الطريقة الثانية ليستفيد الجميع بارك الله فيكم جميعا مرة أخرى

بارك الله فيك أخي rober وجزاك الله عنا خير الجزاء وتأكد أن الكثير سيستفيد من الحلول التي وضعتها

السلام عليكم ورحمة الله تعالى وبركاته يبدوا أن مشاكلي مع الجدوال لم تنتهي بعد على كل حال لدي جدول أجري عليه عملية للحصول على النتيجة التالية : يعني أن قيمة الحقل B = الحقل A مع إضافة قيمة الحقل B في السجل الذي يسبق السجل الحالي أرجو أن يكون قصدي واضح وقد حاولت…

أهلا وسهلا بك أخي الكريم ياريت توضح لنا قصدك فيما يخص الحقول ذات النمط المحسوب تلقائيا أما استعمال القوادح عند إدخال السجلات كحل اولي فهي لا تفيد في حالتي هنا

لا داعي لرفع المثال فقد أظهرت مكمن الخطأ بارك الله فيك ولا أنسى أخي محمد- mohfa (قلبي يحدثني أن له علاقة بالأمر ) بارك الله فيكم جميعا .

صحيحة 100/100 بارك الله لك وفيك أخي rober والله أبهحت قلبي أخي rober :wub: وين كنت مخبي أخي rober جزاك الله عنا خير الجزاء :blush: :blush:

هذا مثال الأخ Medreg بعد التعديل وهو يعمل كالآتي : أولا نختار السجل الأول ثم نضغط على الزر Calculer مرة واحدة ثم نختار السجل الثاني ونضغط على الزر Calculer مرة واحدة ثم نختار السجل الثالث ونضغط على الزر Calculer مرة واحدة ثم ..... وبهذه الطريقة أحصل على المطلو…