+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟ (/showthread.php?tid=6249)
كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟ - أحمد 13 - 11-06-2014
السلام عليكم
صديق لي طلب مني امر اذا كان اسم الملف 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 اذا كان الاسم خاطئ ؟
و جزاكم الله خيرا
كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟ - rabihpascal - 11-06-2014
كود :
var filename:string; begin if od.execute then filename:=extractfilename(od); if filename<>'config.php'then showmessage('error') else memo1.lines.loadfromfile(filename);كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟ - mobile - 15-06-2014
وعليكم السلام ورحمة الله
إقتباس :
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;
كيف اجعل البرنامج يقبل التعديل على اسم ملف بشرط ؟ - mobile - 15-06-2014
السلام عليكم
يجب حذف السطرين
كود :
Delete(s,length(s)-1,length(s)) ;
Delete(s,length(s)-1,length(s));اسف ادرجتهما خطأ ونسيت حذفهما