كيفية إضافة الأصفار البادئة إلى رقم (تنسيق دلفي)

تتطلب التطبيقات المختلفة قيمًا محددة لتتوافق مع النماذج الهيكلية. على سبيل المثال ، تتكون أرقام الضمان الاجتماعي دائمًا من تسعة أرقام. تتطلب بعض التقارير عرض الأرقام بعدد ثابت من الأحرف. تبدأ الأرقام التسلسلية ، على سبيل المثال ، عادةً بالرقم 1 والزيادة بدون نهاية ، لذا يتم عرضها بأصفار بادئة لتقديم جاذبية مرئية.

ك مبرمج دلفي، يعتمد أسلوبك في إضافة رقم بأصفار بادئة على حالة الاستخدام المحددة لهذه القيمة. يمكنك ببساطة اختيار عرض قيمة العرض ، أو يمكنك تحويل رقم إلى سلسلة للتخزين في قاعدة بيانات.

استخدم وظيفة بسيطة لتغيير طريقة عرض رقمك. استعمال شكل لإجراء التحويل من خلال توفير قيمة الطول (الطول الكلي للمخرج النهائي) والرقم الذي تريد حشوه:

str: = التنسيق ('٪. * d، [length، number])

لتدوين الرقم 7 مع صفر صفر ، قم بتوصيل هذه القيم في الرمز:

str: = Format ('٪. * d، [3، 7])؛

النتيجه هي 007 مع القيمة التي تم إرجاعها كسلسلة.

استخدم وظيفة الحشو لإلحاق الأصفار البادئة (أو أي حرف آخر) في أي وقت تحتاج إليه في النص البرمجي. لتحويل القيم التي هي أعداد صحيحة بالفعل ، استخدم:

دالة LeftPad (القيمة: عدد صحيح؛ الطول: عدد صحيح = 8 ؛ pad: char = '0'): string؛ الزائد. 

ابدأ

 النتيجة: = RightStr (StringOfChar (لوحة ، طول) + IntToStr (قيمة) ، طول) ؛ 

النهاية؛

إذا كانت القيمة المطلوب تحويلها سلسلة بالفعل ، فاستخدم:

دالة LeftPad (القيمة: string؛ الطول: عدد صحيح = 8 ؛ pad: char = '0'): string؛ الزائد.

ابدأ

 النتيجة: = RightStr (StringOfChar (لوحة ، طول) + قيمة ، طول) ؛

النهاية؛

يعمل هذا النهج مع دلفي 6 والإصدارات اللاحقة. كل من كتل التعليمات البرمجية هذه الافتراضية إلى حرف الحشو من 0 بطول سبعة أحرف مرتجعة ؛ قد يتم تعديل هذه القيم لتلبية احتياجاتك.

عندما يتم استدعاء LeftPad ، فإنها تُرجع القيم وفقًا للنموذج المحدد. على سبيل المثال ، إذا قمت بتعيين قيمة عددية إلى 1234 ، استدعاء LeftPad:

ط: = 1234 ؛
ص: = LeftPad (ط) ؛

سيُرجع قيمة سلسلة 0001234.