كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟

[أحمد 13]

السلام عليكم

صديق لي طلب مني امر اذا كان اسم الملف config.php فإنه يمكنه فتحه و التعديل عليه

بواسطة ميمو1

اعطيته الامر التالي و لكن لم ينجح

كود :

var filename : string; begin if dg.Execute then begin if filename ='config.php' then memo1.Lines.LoadFromFile(dg.filename) else if filename<> 'config.php' then showmessage('Error') ; end ; end;

كيف اجعل يقبل ان يفتح على ملف config.php و يظهر رسالة error اذا كان الاسم خاطئ ؟

و جزاكم الله خيرا