نصائح

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

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

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

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

عرض طريقة الحشو

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

str: = التنسيق ('٪. * d ، الطول ، العدد)

لتثبيت الرقم 7 مع أصفار بادئة ، قم بتوصيل هذه القيم في الكود:

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

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

تحويل إلى طريقة السلسلة

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

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

ابدأ

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

النهاية؛

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

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

ابدأ

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

النهاية؛

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

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

i: = 1234 ؛
r: = LeftPad (i) ؛

سيعود قيمة سلسلة من 0001234.


شاهد الفيديو: الصفر ناحية اليسار بطرق مميزة في إكسل مهم لأرقام الجوال (يوليو 2021).