delphi4arab منتديات دلفي للعرب

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

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

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

وهذه رسالة الخطأ
[attachment=3130]
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
بارك الله فيك أخي واستاذي عبدالعزيز
هذا هو المطلوب
(26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب : [ -> ]
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
أخي عبدالعزيز
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
لازلت انتظر لآنني بحاجة ماسة الى حل هذه المسكلة
وبارك الله فيكم
(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 2 3 4 5