كيف يتم حذف اول حرف من اسماء مجموعه ملفات

[m.rabee]

السلام عليكم

هنا يتم التأكد ان كانت بداية الملف تحتوي على 00 (بعد حذف ID~) عندها يقوم بحذف الـ00 وتعديل اللاحقة

كود :

if Copy(NewN,1,2) = '00' then Begin Delete(NewN,1,2); NewN := ChangeFileExt(NewN,'.mod'); End;

هنا يتم التأكد من أول ثلاثة حروف من اسم الملف

كود :

if UpperCase(Copy(NewN,1,3)) = '~ID' then

الرقم 3 يرمز الى عدد الحروف المراد التأكد منها
مثلاً لو اردت التأكد من حرفين فقط غير الرقم الى 2
وغير ID~ الى حرفين فقط مثلا D~
وهكذا....