+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تحويل فانكشن من الاكسس الى لغة دلفي (/showthread.php?tid=3711)
الصفحات:
1
2
كيف تحويل فانكشن من الاكسس الى لغة دلفي - ابومهند - 12-01-2012
بارك الله فيك اخي alkofily ولكن لم اشاهد اي تعديل في الكود.
تحياتي
كيف تحويل فانكشن من الاكسس الى لغة دلفي - me_delphi - 18-01-2012
PHP كود :
function ID_Validation(SEGEL_NO: string): Boolean;
var i, TOT: Integer;
TMP, FIN: string;
begin
if ((SEGEL_NO[1] <> '1') and (SEGEL_NO[1] <> '2')) then
begin
Result := False;
Exit;
end;
TOT := 0;
for i := 1 to 9 do
begin
if (i = 1) or (i = 3) or (i = 5) or (i = 7) or (i = 9) then
begin
TMP := IntToStr(StrToInt(Copy(SEGEL_NO, i, 1)) * 2);
if Length(TMP) = 1 then
TMP := '0' + IntToStr(StrToInt(Copy(SEGEL_NO, i, 1)) * 2)
else
TMP := IntToStr(StrToInt(Copy(SEGEL_NO, i, 1)) * 2);
TOT := TOT + StrToInt(Copy(TMP, 1, 1)) + StrToInt(Copy(TMP, 2, 1));
end
else
TOT := TOT + StrToInt(Copy(SEGEL_NO, i, 1));
end;
if Length(IntToStr(TOT)) = 1 then
FIN := '0' + IntToStr(TOT)
else
FIN := IntToStr(TOT);
Result := (StrToInt(Copy(FIN, 2, 1)) = StrToInt(Copy(SEGEL_NO, 10, 1))) or (StrToInt(Copy(SEGEL_NO, 10, 1)) = 10 - StrToInt(Copy(FIN, 2, 1)));
end;
كيف تحويل فانكشن من الاكسس الى لغة دلفي - ابومهند - 18-01-2012
اخي الكريم me&delphi
بارك الله فيك وجزاك الله خير ، نجحت الطريقة
باقي شغله وهي كيف يمكن اجبره على ادخال 10 ارقام فقط ، واذا ادخل اقل من ذلك يعطي رسالة تنبيه.
كيف تحويل فانكشن من الاكسس الى لغة دلفي - ابومهند - 19-01-2012
بارك الله فيكم جميعا بفضلكم بعد الله استطعت تجهيز المطلوب والمرفق هي نسخة من الناتج احببت انزله ليستفيد منه غيري.
تحياتي للجميع ولصاحب هذا المنتدى العريق.
ملاحظة لاخي الكريم me&delphi بعد البحث في المنتدى وجدت التابع : Length لمعرفة عدد المدخل في Edit .
كيف تحويل فانكشن من الاكسس الى لغة دلفي - me_delphi - 21-01-2012
لا زالت هناك أمور أخرى أخي مهند
يمكنك تحديد عدد محارف المدخلات للمستعمل بخاصية تتواجد في المكونات التي تقوم بهدا الأمر ك Edit ..ابحث عنها
ولا بد كدلك من اجبار المستخدم على ادخال مدخلات رقمية فقط...أترك لك الأمر لتبحث
بالتوفيق ان شاء الله
كيف تحويل فانكشن من الاكسس الى لغة دلفي - ابومهند - 21-01-2012
بارك الله فيك اخي الكريم me&delphi وشكراً لك على النصائح وعلى جهودك.
بالنسبة للمثال السابق وضعت الشروط التاليه قبل التحقق.
1-جعلته لايقبل الا ارقام فقط.
2-اذا كان عدد الارقام اقل من عشرة فيعطي رسالة قبل تنفيذ التحقق من صحة الرقم.
ويمكن تجربة البرنامج بعد التعديل وابداء ملاحظاتك.
تحياتي وتقديري ولانستغني عن توجيهاتك.
كيف تحويل فانكشن من الاكسس الى لغة دلفي - kachwahed - 21-01-2012
[COLOR="black"]
إقتباس : if not i in [1, 3, 5, 7] thenحاول اختزال الكود، ماذا عن أعداد عشرية:
http://www.delphi4arab.net/forum/showthread.php?tid=3412
أحدهم ينتظر إجابة هناك
بالتوفيق.[/COLOR]