برنامج تصحيح التلآوة - للشيوخ والمعلّمين لكتآب الله

[AvimimuS]

السلام عليكم

اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله
اما بالنسبةل

هل لك ان توضح هذه النقطة بارك الله لك؟ فهمت ماذا تقصد لكن هل هناك امكآنية لعمل ذلك في الكود ؟

اليك الحل برمجيا

كود :

function TestEmailformat(EMail:string):boolean; var a,b:integer; s,accept:string; begin s := lowercase(EMail); Result := True; accept := 'abcdefghijklmnopqrstuvwxyz0123456789-@._~'; for a:=1 to length(s) do begin if pos(copy(s,a,1),accept) < 0 then Result := False end; b:=0; for a:=1 to length(s) do if copy(s,a,1) = '@' then b:=b+1; if b <> 1 then Result := False; for a:=1 to length(s) do if ( (copy(s,a,1) = '@') or (copy(s,a,1) = '.') ) and ((copy(s,a+1,1) = '@') or (copy(s,a+1,1) = '.')) then Result := False; if (copy(s,1,1) = '@') or (copy(s,1,1) = '.') or (copy(s,length(s),1) = '@') or (copy(s,length(s),1) = '.') then Result := False; if pos('.',copy(s,pos('@',s)+1,length(s)-pos('@',s)-1)) = 0 then Result := false;

والسلام عليكم

[AL-MOB4RM3G]

اولا وعليكم السلام

,,

اشكرك على الفونكشن اخي الكريم,,

ثآنيا,,

اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله

هل لديك اقترآح اخي الكريم؟
تقصد الصورة ؟ ام الوآجهة كلها,, بلأزرار وو الى آخره ؟

ام تقصد ان اضع سكين ؟

شكرا لك اخي

[AvimimuS]

انا اقصد فقط التعديل من حجم الصورة فهي كبيرة جدا

[AL-MOB4RM3G]

انا اقصد فقط التعديل من حجم الصورة فهي كبيرة جدا

حآضر اخي الكريم.,, اشكرك على ملآحظتك هذه

هل هناك شئ آخر ,, ؟ من عنده شئ يود قوله ؟

انا بلإنتظآر لبعض الأيآم ,,, ان شاء الله

[Anter2010]

السلام عليكم اخي انا نصبة الدالفي 2009 و الحقيقة ان التحميل لم يكتمل في الرابيد شار

[AL-MOB4RM3G]

السلام عليكم اخي انا نصبة الدالفي 2009 و الحقيقة ان التحميل لم يكتمل في الرابيد شار

اخي الكريم,, هل لديك موقع تفضله ؟

ان كان كذلك ارس لي الموقع وانا ارفعه لك ان شاء الله تعلى,,

اكرمك الله

[kachwahed]

هناك خلل عند حذف ملاحظة والجدول فارغ.
أضف شرط التحقق قبل الحذف، مثل:

PHP كود :

if not adoquery2.IsEmpty then
adoquery2.Delete; 


بالتوفيق

[AL-MOB4RM3G]

فعلا هناك خلل,, شكرا على التنبيه اخي الكريم,,

سيتم اصلآح هذا ان شاء الله في القريب العآجل,

[saidfor2]

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

[AL-MOB4RM3G]

اولا, اهلا وسهلا بك اخي الكريم,, وآكرمك الله ورفع قدرك,

اخي الكريم

وإسمحلي أني لاحظة أن ليس هناك طباعة علمة بالمدرسة وخاصة بالطالب ... وشكرا

انا تحت امرتك اخي الكريم,, لكن لم افهم ماذا تقصد اكرمك الله, فهل لك ان توضح قليلا جزاك الله خيرا ؟