التغيير فى تغيير ال rename لل word برمجياً

[محمد .م.م]

لقد استعملت هذا الكود

كود :

CopyFile(PChar('1.doc'), PChar('c:1.doc'), False);

وناجح معى ولكن المشكله اريد عند الكتابه فى حقل الرقم وحقل السنه يتم تغيير ال rename لل word الى الكتابه التى كتبتها فى حقلى الرقم والسنه
ماهو الحل

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته
أخي فرضا أن لك حقل annee للسنة و حقل num للرقم يمكنك تغيير اسم الملف بهذه الطريقة

CopyFile(PChar('1.doc'), PChar('c:'+annee.text+num.text+'.doc'), False);
هند التنفيذ تكون النتيجة مثلا 20150001.doc
جرب هذا الكود و يمكنك التحكم في التسمية كما تريد
بالتوفيق

[محمد .م.م]

لقد جربتها ولم تفلح فبعد اجراء تعديلات بسيطه على الكود تعطى النتيجه annee.text+num.text+' فى ال rename ولكن اريد النتيجه بما كتبته فى حقل annee و num

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته
معذرة أخي أنا قصدت ب annee ال edit و بما انك تستخدم قواعد البيانات استخدم هذا الكود
table1.fieldbyname('annee').asstring+table1.fieldbyname('num').asstring
و إن شاء الله ستشتغل
بالتوفيق

[محمد .م.م]

ما رأيك فى هذا الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text), False);

[makhlouf]

ما رأيك فى هذا الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text), False);

صحيح لكن بشرط تضع في الأوديت اسم الملف الذي تريد النسخ إليه مثل 13082015.doc
بالتوفيق

[محمد .م.م]

لقد جربت الكود ال1ى اعطيته لى ولم ينجح وعلى كل حال استخدمت الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text+Edit2.text), False); ولكن عندما كتبت فى الآوديت الآول رقم 1 وكتبت فى الآوديت الثانى رقم 2 اعطانى نتيجه 21 وهذا مالم اريده اريد أن تكون النتيجه ا لسنة 2
مالحل

[makhlouf]

لقد جربت الكود ال1ى اعطيته لى ولم ينجح وعلى كل حال استخدمت الكود CopyFile(PChar('1.doc'), PChar(Edit1.Text+Edit2.text), False); ولكن عندما كتبت فى الآوديت الآول رقم 1 وكتبت فى الآوديت الثانى رقم 2 اعطانى نتيجه 21 وهذا مالم اريده اريد أن تكون النتيجه ا لسنة 2
مالحل

أخي اكتبها بهذه الصيغة PChar(Edit1.Text+'لسنة'+Edit2.text)
بالتوفيق

[محمد .م.م]

شكرا لقد نجحت

[makhlouf]

الحمد لله
عفوا يا أخي
بالتوفيق