+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التغيير فى تغيير ال rename لل word برمجياً (/showthread.php?tid=7147)
التغيير فى تغيير ال rename لل word برمجياً - محمد .م.م - 13-08-2015
لقد استعملت هذا الكود
كود :
CopyFile(PChar('1.doc'), PChar('c:1.doc'), False);ماهو الحل
التغيير فى تغيير ال rename لل word برمجياً - makhlouf - 13-08-2015
السلام عليكم و رحمة الله تعالى و بركاته
أخي فرضا أن لك حقل annee للسنة و حقل num للرقم يمكنك تغيير اسم الملف بهذه الطريقة
CopyFile(PChar('1.doc'), PChar('c:'+annee.text+num.text+'.doc'), False);
هند التنفيذ تكون النتيجة مثلا 20150001.doc
جرب هذا الكود و يمكنك التحكم في التسمية كما تريد
بالتوفيق
التغيير فى تغيير ال rename لل word برمجياً - محمد .م.م - 13-08-2015
لقد جربتها ولم تفلح فبعد اجراء تعديلات بسيطه على الكود تعطى النتيجه annee.text+num.text+' فى ال rename ولكن اريد النتيجه بما كتبته فى حقل annee و num
التغيير فى تغيير ال rename لل word برمجياً - makhlouf - 13-08-2015
السلام عليكم و رحمة الله تعالى و بركاته
معذرة أخي أنا قصدت ب annee ال edit و بما انك تستخدم قواعد البيانات استخدم هذا الكود
table1.fieldbyname('annee').asstring+table1.fieldbyname('num').asstring
و إن شاء الله ستشتغل
بالتوفيق
التغيير فى تغيير ال rename لل word برمجياً - محمد .م.م - 13-08-2015
ما رأيك فى هذا الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text), False);
التغيير فى تغيير ال rename لل word برمجياً - makhlouf - 13-08-2015
محمد .م.م كتب :ما رأيك فى هذا الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text), False);صحيح لكن بشرط تضع في الأوديت اسم الملف الذي تريد النسخ إليه مثل 13082015.doc
بالتوفيق
التغيير فى تغيير ال rename لل word برمجياً - محمد .م.م - 13-08-2015
لقد جربت الكود ال1ى اعطيته لى ولم ينجح وعلى كل حال استخدمت الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text+Edit2.text), False); ولكن عندما كتبت فى الآوديت الآول رقم 1 وكتبت فى الآوديت الثانى رقم 2 اعطانى نتيجه 21 وهذا مالم اريده اريد أن تكون النتيجه ا لسنة 2
مالحل
التغيير فى تغيير ال rename لل word برمجياً - makhlouf - 13-08-2015
محمد .م.م كتب :لقد جربت الكود ال1ى اعطيته لى ولم ينجح وعلى كل حال استخدمت الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text+Edit2.text), False); ولكن عندما كتبت فى الآوديت الآول رقم 1 وكتبت فى الآوديت الثانى رقم 2 اعطانى نتيجه 21 وهذا مالم اريده اريد أن تكون النتيجه ا لسنة 2
مالحل
أخي اكتبها بهذه الصيغة PChar(Edit1.Text+'لسنة'+Edit2.text)
بالتوفيق
التغيير فى تغيير ال rename لل word برمجياً - محمد .م.م - 13-08-2015
شكرا لقد نجحت
التغيير فى تغيير ال rename لل word برمجياً - makhlouf - 13-08-2015
الحمد لله
عفوا يا أخي
بالتوفيق