توليد أرقام DNSUID

Functions:
  GetDNSUIDStr
  GetDNSUIDRec
  GetDNSUIDArr

الغرض
الحصول على رقم فريد من النوع DNSUID. رقم DNSUID هو سلسلة نصية (String) مكونة من 20 رقماً (مثلاً 62020050110194124031)، و يتم توليد هذه الأرقام بحيث لا يمكن أن يتكرر الرقم مرة أخرى. بالإضافة إلى كونه سلسلة نصية، يمكنك التعامل مع الرقم على أنه سجل يتكون من 10 حقول من النوع Byte، و كذلك يمكنك التعامل معه على أنه مصفوفة ذات 10 عناصر من النوع Byte (كل رقمين متتاليين في السلسلة النصية يمثلان بايتاً واحدة)، مع العلم أن تحويل النص إلى سجل أو مصفوفة يبدأ من اليسار إلى اليمين. يمكنك استعمال أرقام DNSUID كمعرفات فريدة لا تتكرر.

الصيغة

function GetDNSUIDStr: string;
function GetDNSUIDRec: TDNSUIDRec;
function GetDNSUIDArr: TDNSUIDArr;

الوسائط (Parameters)

الشرح
الدالة الأولى (GetDNSUIDStr) تعيد رقماً من النوع DNSUID في شكل سلسلة حرفية (String) مكونة من 20 رقماً.
الدالة الثانية (GetDNSUIDRec) تعيد رقماً من النوع DNSUID في شكل سجل (Record) مكون من 10 حقول من النوع Byte. و النوع TDNSUIDRec معرف كالتالي:

type
  TDNSUIDRec = record
    Byte1: Byte;
    Byte2: Byte;
    Byte3: Byte;
    Byte4: Byte;
    Byte5: Byte;
    Byte6: Byte;
    Byte7: Byte;
    Byte8: Byte;
    Byte9: Byte;
    Byte10: Byte;
  end;

type
  TDNSUIDArr = array[1..10] of Byte;

كل دالة من هذه الدوال تولد رقماً فريداً لا يمكن تكراره. للتحويل من صيغة إلى أخرى من صيغ أرقام DNSUID استعمل الدوال التالية:

 أعلى الصفحة