كيف تحويل فانكشن من الاكسس الى لغة دلفي

[ابومهند]

بارك الله فيك اخي alkofily ولكن لم اشاهد اي تعديل في الكود.

تحياتي

[me_delphi]

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; 


[ابومهند]

اخي الكريم me&delphi

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

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

[ابومهند]

بارك الله فيكم جميعا بفضلكم بعد الله استطعت تجهيز المطلوب والمرفق هي نسخة من الناتج احببت انزله ليستفيد منه غيري.

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


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

[me_delphi]

لا زالت هناك أمور أخرى أخي مهند

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

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

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

[ابومهند]

بارك الله فيك اخي الكريم me&delphi وشكراً لك على النصائح وعلى جهودك.

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

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

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

[kachwahed]

[COLOR="black"]

if not i in [1, 3, 5, 7] then

حاول اختزال الكود، ماذا عن أعداد عشرية:
http://www.delphi4arab.net/forum/showthr...p?tid=3412
أحدهم ينتظر إجابة هناك
بالتوفيق.[/COLOR]