15-11-2017, 08:46 AM
السلام عليكم و رحمة الله
جرب اخي دالة Format، اظنها تفي بالغرض.
إقتباس :لدي رقم متكون من 6 ارقام وانا اريد 8 ارقام على الشكل التالي
123456 يصبح 00123456
12345 يصبح 00012345
جرب اخي دالة Format، اظنها تفي بالغرض.
كود :
Edit1.Text := Format('%.8d', [123456]);
Edit1.Text := Format('%.8d', [12345]);