فتح واغلاق وقرأة الملفات عدد من الملفات

[NOna]

السلام عليكم

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

امع الشكر

[Effector]

سهله جدا
استخدمي اولا FindFirst و FindNext لي ايجاد كافه ملفات التكست في المجلد المحدد .
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst


بعد ذلك استخدمي خاصيه قرائه و كتابه ملفات التكست AssignFile و ReadLn في قرائه كل ملف يجده الفنكشن المذكور اعلاه و يكتبه في ملف ثابت اخر .
http://www.delphibasics.co.uk/RTL.asp?Name=Read

اذا صعب عليك الامر نقدر نسوي لك مثال.