الانتقال إلى المحتوى

ما معنى وجود كلمة Return فى البروسيدجر التالى؟


here comes

Recommended Posts

ما معنى وجود كلمة return فى البروسيدجر التالى؟

PROCEDURE move_element(t_list_from in varchar2, t_list_into in varchar2) IS
lb varchar(14);
vl number;
idx_from number; idx_into number;
BEGIN idx_from := Get_List_Current_Index(t_list_from);
IF idx_from = 0
then RETURN;
end if;
idx_into := Get_List_Current_Index(t_list_into);
if idx_into = 0 
then Clear_List(t_list_into);
end if;
lb := Get_List_Element_Label(t_list_from, idx_from);
vl := Name_IN(t_list_from);
Add_List_Element(t_list_into, idx_into +1, lb, vl);
Copy(vl, t_list_into);
Delete_List_Element(t_list_from, idx_from);
idx_from := Least(idx_from, Get_List_Element_Count(t_list_From));
vl := Get_List_Element_Value(t_list_from, idx_from);
Copy (vl, t_list_from);
END;



مع العلم أن
Get_List_Current_Index
عباره عن function ترجع قيمة index على ال list item

وهى كالتالى

FUNCTION Get_List_Current_Index(List_Name in varchar2) RETURN NUMBER IS
cnt number;
ret number := 0;
list_val number := Name_IN(List_Name);
BEGIN cnt := Get_List_Element_Count(List_Name);
for i in 1..cnt LOOP
IF List_Val = Get_List_Element_Value(List_Name, i)
	then ret := i;
	exit;
end if;
end loop;
return ret;
END;



تحياتى

رابط هذا التعليق
شارك

السلام عليكم.

كلمة RETURN تستخدم لإنهاء القطعه البرمجيه مباشرة (أي أنه إذا تحقق الشرط يتم الخروج من القطعه البرمجيه دون اللجوء إلى كلمة END في آخر الكود، ) بعد تحقيق الشرط في الكود السابق. مثل كلمة EXIT في ال LOOP. والمشابهه لها في الإستخدام كلمة GOTO مع إجراء بعض الإضافات لجملة GOTO.

رابط هذا التعليق
شارك

وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خيرا


الأخ / احمد

اود ان اشكرك على المجهود المتميز بالمنتدى وعلى سرعة الرد على الاخوه الاعضاء ...

بارك الله فيك

تقبل تحياتى
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

انضم إلى المناقشة

يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.

زائر
أضف رد على هذا الموضوع...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   تمت استعادة المحتوى السابق الخاص بك.   مسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

جاري التحميل
×
×
  • أضف...

برجاء الإنتباه

بإستخدامك للموقع فأنت تتعهد بالموافقة على هذه البنود: سياسة الخصوصية