+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فيما يتعلق بحفظ حقل في ملف نصي (/showthread.php?tid=7435)
فيما يتعلق بحفظ حقل في ملف نصي - medreg - 26-01-2016
السلام عليكم ورحمة الله تعالى وبركاته
delphi7
absolute datatbase
لدي حقل إسمه Numero يتكون من 10 حروف
وقيمته تساوي 2580124
وعند تحويله او حفظه في ملف نصي يجب ان تكون قيمته على هذا الشكل 0002580124
كيف يمكنني الحصول على هذه النتيجة
بالتوفيق
RE: فيما يتعلق بحفظ حقل في ملف نصي - محمد عبد العزيز - 26-01-2016
وعليكم السلام
بمكن استخدام Format
كود :
Caption := Format('%.10d', [2580124]);RE: فيما يتعلق بحفظ حقل في ملف نصي - medreg - 26-01-2016
(26-01-2016, 05:14 AM)B.M.AbdelAziZ كتب : وعليكم السلام
بمكن استخدام Format
كود :Caption := Format('%.10d', [2580124]);
بارك الله فيكم اخي عبدالعزيز
لكن عندما ادمجت هذا السطر
انتج عنه خطأ ربما لم اصعه بطريقة سليمة
الكود
كود :
tCpt := format('%.10d', [Table1.FieldValues['Compte']]);
حيث tCpt متغير نصيRE: فيما يتعلق بحفظ حقل في ملف نصي - محمد عبد العزيز - 26-01-2016
ما نوع الحقل Compte ؟
RE: فيما يتعلق بحفظ حقل في ملف نصي - medreg - 26-01-2016
نوع الحقل نصي string
وهذه رسالة الخطأ
[attachment=3130]
RE: فيما يتعلق بحفظ حقل في ملف نصي - محمد عبد العزيز - 26-01-2016
كود :
tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);RE: فيما يتعلق بحفظ حقل في ملف نصي - medreg - 26-01-2016
بارك الله فيك أخي واستاذي عبدالعزيز
هذا هو المطلوب
RE: فيما يتعلق بحفظ حقل في ملف نصي - medreg - 31-01-2016
(26-01-2016, 07:58 PM)B.M.AbdelAziZ كتب :أخي عبدالعزيزكود :tCpt := format('%.10d',[strtoint(Table1.FieldValues['Compte'])]);
إذا كان الحقل من نوع FLOAT
وفي الملف النصي يجب ان يحتوي على 13 حرفا
اي لنفترض ان القيمة الموجودة في قاعدة البيانات بهذا الشكل : 25.345,32
في الملف النصي تكون بهذا الشكل : 0000002534532
كبف يكون الكود المتعلق بهذا السطر
وبارك الله فيكم
RE: فيما يتعلق بحفظ حقل في ملف نصي - medreg - 03-02-2016
لازلت انتظر لآنني بحاجة ماسة الى حل هذه المسكلة
وبارك الله فيكم
RE: فيما يتعلق بحفظ حقل في ملف نصي - bassem_43 - 03-02-2016
(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'])]);
ساوافيك بالدالة ان لم تستطع كتابتها فيما بعد
بالتوفيق