delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف تحويل فانكشن من الاكسس الى لغة دلفي
نسخة كاملة : كيف تحويل فانكشن من الاكسس الى لغة دلفي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

ابومهند

12-01-2012, 08:24 AM
بارك الله فيك اخي alkofily ولكن لم اشاهد اي تعديل في الكود.

تحياتي

me_delphi

18-01-2012, 02:41 PM
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, 04:07 PM
اخي الكريم me&delphi

بارك الله فيك وجزاك الله خير ، نجحت الطريقة

باقي شغله وهي كيف يمكن اجبره على ادخال 10 ارقام فقط ، واذا ادخل اقل من ذلك يعطي رسالة تنبيه.

ابومهند

19-01-2012, 06:30 AM
بارك الله فيكم جميعا بفضلكم بعد الله استطعت تجهيز المطلوب والمرفق هي نسخة من الناتج احببت انزله ليستفيد منه غيري.

تحياتي للجميع ولصاحب هذا المنتدى العريق.


ملاحظة لاخي الكريم me&delphi بعد البحث في المنتدى وجدت التابع : Length لمعرفة عدد المدخل في Edit .

me_delphi

21-01-2012, 07:01 AM
لا زالت هناك أمور أخرى أخي مهند

يمكنك تحديد عدد محارف المدخلات للمستعمل بخاصية تتواجد في المكونات التي تقوم بهدا الأمر ك Edit ..ابحث عنها

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

بالتوفيق ان شاء الله

ابومهند

21-01-2012, 09:18 AM
بارك الله فيك اخي الكريم me&delphi وشكراً لك على النصائح وعلى جهودك.

بالنسبة للمثال السابق وضعت الشروط التاليه قبل التحقق.
1-جعلته لايقبل الا ارقام فقط.
2-اذا كان عدد الارقام اقل من عشرة فيعطي رسالة قبل تنفيذ التحقق من صحة الرقم.

ويمكن تجربة البرنامج بعد التعديل وابداء ملاحظاتك.

تحياتي وتقديري ولانستغني عن توجيهاتك.

kachwahed

21-01-2012, 12:42 PM
[COLOR="black"]
إقتباس : if not i in [1, 3, 5, 7] then
حاول اختزال الكود، ماذا عن أعداد عشرية:
http://www.delphi4arab.net/forum/showthr...p?tid=3412
أحدهم ينتظر إجابة هناك Smile
بالتوفيق.[/COLOR]
الصفحات : 1 2
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف تحويل فانكشن من الاكسس الى لغة دلفي