فيما يتعلق بحفظ حقل في ملف نصي
#1
السلام عليكم ورحمة الله تعالى وبركاته
delphi7
absolute datatbase
لدي حقل إسمه Numero يتكون من 10 حروف
وقيمته تساوي 2580124
وعند تحويله او حفظه في ملف نصي يجب ان تكون قيمته على هذا الشكل 0002580124
كيف يمكنني الحصول على هذه النتيجة
بالتوفيق
الرد
#2
وعليكم السلام
بمكن استخدام
Format
كود :
Caption := Format('%.10d', [2580124]);
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#3
(26-01-2016, 05:14 AM)B.M.AbdelAziZ كتب : وعليكم السلام
بمكن استخدام
Format
كود :
Caption := Format('%.10d', [2580124]);

بارك الله فيكم اخي عبدالعزيز
لكن عندما ادمجت هذا السطر
انتج عنه خطأ ربما لم اصعه بطريقة سليمة
الكود

كود :
tCpt    := format('%.10d', [Table1.FieldValues['Compte']]); حيث tCpt متغير نصي
ربما هناك خطاء في استعمالي لهذا الكود
الرد
#4
ما نوع الحقل  Compte ؟
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#5
نوع الحقل نصي string

وهذه رسالة الخطأ
[attachment=3130]
الرد
#6
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#7
بارك الله فيك أخي واستاذي عبدالعزيز
هذا هو المطلوب
الرد
#8
(26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب :
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
أخي عبدالعزيز
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
الرد
#9
لازلت انتظر لآنني بحاجة ماسة الى حل هذه المسكلة
وبارك الله فيكم
الرد
#10
(31-01-2016, 07:26 PM)medreg كتب :
(26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب :
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
أخي عبدالعزيز
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
السلام عليكم
استخدم دالة تقوم بحدف الفاصلة من العدد 25.345,32 وتحويلها الى 2534532 بشكل string
بعدها استخدم طريقة الاستاد عبد العزيز
tCpt := format('%.13d',[strtoint(Table1.FieldValues['Compte'])]);
ساوافيك بالدالة ان لم تستطع كتابتها فيما بعد
بالتوفيق
و من طلب العلوم بغير كد _________ سيدركها إذا شاب الغراب
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم