بسم الله الرحمن الرحيم
إخواني الأعزاء...
في حال وجود نمط تعدادي مؤلف من مجموعة من القيم ( مثل aaname, aanumber)
هل هنالك تابع يعيد مباشرة قيمة ( من النمط التعدادي ذاته) وذلك انطلاقاً من ترتيبها... فبالنسبة للنمط السابق, إذا مررنا القيمة 0 فإنه يعيد
aanumber وهكذا...
علماً أنني جربت التابع getenumname المعرف في الوحدة typinfo... لكنه يعيد قيمة من النمط string... وليس من النمط ذاته...
ولكم جزيل الشكر...
المال في الغربة وطن والفقر في الوطن غربة
لو فرضنا كان لديك النمط التعدادي التالي
type Suit = (Club, Diamond, Heart, Spade);
انت تريد تابع تعطيه رقم يعيد لك يعيد لك القيمة الموافقة له في النمط التعدادي قم بعمل Type Cast مثل هذا
function GetEnumName(i:integer):suit; begin Result := suit(i); end;
لاحظ اننا فقط بدلنا الانماط من Integer الى suit
ارجوا ان يكون هذا ما تريده
رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
هذا الموضوع مغلق.