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

السلام عليكم

صديق لي طلب مني امر اذا كان اسم الملف 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 اذا كان الاسم خاطئ ؟

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

كود :
var  filename:string;  begin     if od.execute then filename:=extractfilename(od);       if filename<>'config.php'then   showmessage('error')  else  memo1.lines.loadfromfile(filename);

وعليكم السلام ورحمة الله

إقتباس :

function getfilenamefromaddress(s: String): String;
begin
s := stringreplace(s, '/', '\', [rfreplaceall]);
delete(s,length(s)-1,length(s)) ;
delete(s,length(s)-1,length(s));
result := extractfilename(s);
end;
if getfilenamefromaddress(od.filename)='config.php' then ....... End;

السلام عليكم
يجب حذف السطرين

كود :
Delete(s,length(s)-1,length(s)) ;
  Delete(s,length(s)-1,length(s));

هما فقط يحذفان الامتداد
اسف ادرجتهما خطأ ونسيت حذفهما

أحمد 13

rabihpascal

mobile

mobile