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

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

و عليكم السلام و رحمة الله و بركاته
1- البحث عن نص معين :
يكفي قراءة محتوى الملف النصي في متغير + البحث عن 'النص' بـ Pos
دون اللجوء الى الحلقة EOF
2- يستبدله بنص اخر :
يمكن إعادة كتابة قيمة جديدة 'BlockWrite' , أو حلول أخرى StringReplace ......
3- تم التعديل حسب السورس + المطلوب , لم أظف جديد !
بالتوفيق,,

شكرا اخى
جارى التجربةان شاء الله

للاسف اخى لم ينجح الامر
مع انى استخدمت دالة stringReplace
ساحاول شرحه مجددا

1- البحث عن النص الموجود فى edit1.text
2- استبداله بالموجود فى edit2.text
3- من الممكن اختلاف حجم النص الجديد عن القديم (لا يشترط المساواة)

لا من المفروض أن العملية نجحت , حسنا هذا بريمج يحل المشكلة
بالتوفيق,,

مشكور اخى
جارى التجربة و ان شاء الله ينجح

شكرا حبيبى
جزاك الله خيرا