saiddsa3980

بسم الله الرحمن الرحيم والصلاة والسلام على أشرف المرسلين إخواني هل من طريقة أو درس تعطوني إياه لعمل مشروع بدلفي 7 يعمل على شبكة محلية وفي الأخير بارك الله فيكم

بارك الله فيك أخي عبد العالي جزاك الله كل الخير

نزل البرنامج حوالي 18 مرة لحد الساعة ولايوجد ردود إلا رد واحد لايسمن ولايغني من جوع

بسم الله الرحن الرحيم هذا المنتدى هو أعز المنتديات بالنسبة لي فقررت أن أهدية هدية رائعة وهو في أمس الحاجة إليها ألا وهي برنامج أرشفة كامل وإحترافي الرجاء منكم الدعاء البرنامج في المرفقات أرجو الردود يإخوان فردودكم تشجيع لنا Archiver.rar

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

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

بسم الله الرحمن الرحيم إخواني عندي برنامج بسيط يقوم بتسجييل الأسماء ويقوم بالفلترة حسب الإسم وبه الأزرار التالية : جديد ، حفظ ، تعديل ، حذف المطلوب إخوان أن أجعل لكل زر إختصار في لوحة المفاتيح فمثلاُ الزر جديد تضغط على المفتاحين Ctrl+S وهكذا بارك الله فيكم وال…

نعم أخي عبد العالي فهو WIN32 ولكن كيف يتم تحويل المشروع من دلفي 7 إلى دلفي 2007

بسم الله الرحمن الرحيم إخواني لدي سؤال بسيط ، هل يمكن لمشروع منجز بدلفي 7 أن يتشتغل في دلفي 2007 بارك الله فيكم وشكراً

بارك الله فيك أخي على النصيحة ، بقيت أبحث عن الحل وحدي ولم أجده حينها تذكرت أنه منذ ثلاثة سنوات قراءت موضوع في أحد الكتب يتحدث على التعليمتين div & mod الأولى هي حاصل القسمة والثانية المتبقي من القسمة فقررت أن أستخدم هاتين التعليمتين ونجحت في النتيجة إليك الكو…

مشكور أخي على المساعدة لكني لم أصل إلى حل نهائي قمت بالتعديل على الكود كتالي : procedure TForm1.Button1Click(Sender: TObject); var dateN,dateF:TDateTime; i:Integer; begin dateN:=StrToDate(Edit1.Text); dateF:=StrToDate(Edit2.Text); i := Trunc(DateF-DateN); Show…

بسم الله الرحمن الرحيم إخواني عندي دالة تحسب العمر باليوم والشهر والسنة أردت التعديل عليها لكني لم أنجح أريد أن أدخل تاريخ الميلاد في EDIT1 وتاريخ اليوم الحالي في EDIT2 والناتج يكون في EDIT3 ** يوم ** شهر ** سنة procedure TForm1.Button1Click(Sender: TObject); …

فكرة ممتازة نحن دائماً في العون

بارك الله فيك أخي الكريم ، جزاك الله كل الخير

بارك الله فيك أخي لكن الكود لم ينجح معي لقد أرفقت الكود للي أعطيتني إياه في الملف decimal1.rar

بسم الله الرحمن الرحيم إخواني عندي برنامج حساب صغيرأريد أن يقوم بالإحتفاظ برقمين بعد الفاصلة في أي حال كان وحتى لوكان بعد الفاصلة صفرين *** وفي الأخير بارك الله فيكم إخواني *** decimal.rar

مشكورين جميعاً الدالة الآن تعمل بشكل صحيح ربي يجازيكم عنا كل الخير دمتم في فعل الخير ياولاد بلادي

ونحن بإنتظار الحل النهائي إن شاء الله

عندي كود عملته من قبل بالفجوال بيسك وهو يعمل بنجاح ياريت تساعدوني في تحويله إلى دلفي وإليكم الكود Private Function ss(x As String) Dim y, x1 If Int(x) <> x Then If Mid(x, Len(x) - 2, 1) = "." Then x1 = Right(x, 4) Else x1 = Right(x, 3) End If Else x1 = Right(x…

نعم أنا من وادي سوف أخي ياسين وأنت من وين ؟ لكني لم أفهمك جيداً ياريت تعطيني كود تام