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

السلام عليكم

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

امع الشكر

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


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

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