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

[Effector]

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


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

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