here comes بتاريخ: 10 مايو 2008 تقديم بلاغ مشاركة بتاريخ: 10 مايو 2008 ما معنى وجود كلمة 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; تحياتى اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
weloooo بتاريخ: 10 مايو 2008 تقديم بلاغ مشاركة بتاريخ: 10 مايو 2008 السلام عليكم.كلمة RETURN تستخدم لإنهاء القطعه البرمجيه مباشرة (أي أنه إذا تحقق الشرط يتم الخروج من القطعه البرمجيه دون اللجوء إلى كلمة END في آخر الكود، ) بعد تحقيق الشرط في الكود السابق. مثل كلمة EXIT في ال LOOP. والمشابهه لها في الإستخدام كلمة GOTO مع إجراء بعض الإضافات لجملة GOTO. اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
here comes بتاريخ: 10 مايو 2008 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 10 مايو 2008 جزاك الله ألف خير ياباشاوأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خير اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
weloooo بتاريخ: 10 مايو 2008 تقديم بلاغ مشاركة بتاريخ: 10 مايو 2008 ولك بمثل ما دعوت لي إن شاء الله. هذا من واجب كل مسلم فزكاة العلم نشره. اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Amgad بتاريخ: 10 مايو 2008 تقديم بلاغ مشاركة بتاريخ: 10 مايو 2008 وأنا لاحظت ردود كتير ليك لمساعده المستفسرين فجزاك الله خيرا الأخ / احمد اود ان اشكرك على المجهود المتميز بالمنتدى وعلى سرعة الرد على الاخوه الاعضاء ... بارك الله فيك تقبل تحياتى اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
weloooo بتاريخ: 11 مايو 2008 تقديم بلاغ مشاركة بتاريخ: 11 مايو 2008 والله يا أخ أمجد كلماتك هذه لها معنى كبير عندي ، عموماً مشاركاتي قليله بالنسبه لمشاركات الإخوه الأعضاء الآخرين وأتمنى أن أكون سبب لنفع الجميع اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.